سؤال معرفة عنوان ملف الinternet Shortcut

1. Dim MyStr As String
2. Dim FN As Integer
3. Dim SectionFound As Boolean
4. Dim NextSection As Boolean
5.  
6. FN = FreeFile
7. Open FileName For Input As #FN
8. Text1.Text = ""
9. SectionFound = False
10. NextSection = False
11. Do While Not EOF(FN)
12. Line Input #FN, MyStr
13. If UCase(Trim(MyStr)) = "[iNTERNETSHORTCUT]" Then
14. SectionFound = True
15. NextSection = False
16. ElseIf Left(MyStr, 1) = "[" Then
17. NextSection = True
18. End If
19. If SectionFound And NextSection Then
20. Exit Do
21. ElseIf SectionFound And (Not NextSection) Then
22. If UCase(Left(MyStr, 4)) = "URL=" Then
23. Text1.Text = Mid(MyStr, 5)
24. Exit Do
25. End If
26. End If
27. Loop
28.  
29. Close #FN
30.  
    
    

 

Set WSH1 [color= #339933;]= CreateObject[color= #009900;]([color= #0000ff;]"WScript.Shell"[color= #009900;])

Set WshShortcut [color= #339933;]= WSH1[color= #339933;].CreateShortcut[color= #009900;]([color= #0000ff;]"C:[color= #000099; font-weight: bold;]test.url"[color= #009900;])

MsgBox WshShortcut[color= #339933;].TargetPath

Set WSH1 [color= #339933;]= Nothing

Set WshShortcut [color= #339933;]= Nothing