如何读取收藏夹内文件的URL（眩晕中...）

Question

RT 各位帮帮忙～

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim FSO As FileSystemObject
    Dim FL As File
    Dim TS As TextStream
    Dim s As String
    Set FSO = New FileSystemObject
    
    Set FL = FSO.GetFile("C:\MSN.url")
    Set TS = FL.OpenAsTextStream(ForReading)
    s = TS.ReadAll
    MsgBox s
    Set TS = Nothing
    Set FL = Nothing
    Set FSO = Nothing
End Sub

Answer 2

工程-〉引用Microsoft Scripting Runtime