استخراج مصدر اختصارات سطح المكتب

[صالح حمادي]

السلام عليكم

في الكثير من الأحيان نحتاج إلى معرف مصدر اختصارات سطح المكتب

أو إلى معرفة هل هذا البرنامج لديه اختصار على سطح المكتب أم لا؟

نستطيع استخراج مصدر اختصارات سطح المكتب و ملفها من خلال هذا الكود:

Dim strFolder As String
Dim strDesktop As String
Dim typefiche As String
Dim strtxt As String

typefiche = "\*.lnk"
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")

strFolder = Dir(strDesktop & typefiche, vbDirectory)

Do While strFolder <> ""
   If Not (strFolder = "." Or strFolder = "..") Then
      strtxt = "Full Path: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).TargetPath & vbCrLf
      strtxt = strtxt & "Path Folder: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).WorkingDirectory & vbCrLf
      MsgBox strtxt
   End If
   strFolder = Dir()
Loop

 

مصدر اختصارات من سطح المكتب.rar