请问怎么打开URL文件啊

Question

不用FSO的话.

Answer 1

什么意思？想调用它还是想读写？
若是想读写，它是文本文件，你用记事本打开看一下就知道了
若是想调用则：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
 ShellExecute hwnd, "open", "***.url", "", App.Path, 1
End Sub

Answer 2

晕！
这么说吧，它的格式与ini文件相同，你可以象读ini一样读取它。
下面的例子读取URL文件中指向的链接地址
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpDefault As Any, ByVal lpReturnedString As Any, ByVal nSize As Long, ByVal lpFileName As String) As Long'*******************************************
'   从*.ini文件中读一个条目
'*******************************************
Public Function ReadProFileString(Section As String, Key As String, iniFile As String) As String
    Dim X As Long, buff As String, i As Integer
    
    buff = String(255, 0)
    
    X = GetPrivateProfileString(Section, Key, "", buff, 255, iniFile)    ReadProFileString = Left(buff, X)
End FunctionSub Form_Load()
    debug.print ReadProFileString("InternetShortcut", "URL", "*.URL")
End sub

Answer 3

分析内容用mshtml对象，具体自己查找