使用vbs循環lnk文件並獲取目標路徑

Question

我想遍歷特定文件夾中的一堆文件（這些文件是.lnk文件）。在那個循環中，我可以引用目標文件路徑（所有文件夾）。

我正在這樣做，所以我可以使用我發現改變其圖標的腳本，該圖標是目標文件夾內的文件，全部使用同一個名稱cover.ico。我將使用更改圖標的腳本

Set sh = CreateObject("WScript.Shell") 

lnkfile = "Path\To\LinkFile.lnk" 

Set lnk = sh.CreateShortcut(lnkfile) 

lnk.IconLocation = "Path\To\IconFile.ico" 

lnk.Save 

腳本改變LNK圖標的作品我已經測試過它，我只需要得到它變成一個循環。 我也已經現在怎麼使用這個

Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
sScriptDir = oFSO.GetParentFolderName(WScript.ScriptFullName) 

獲得該.vbs當前目錄的路徑，以便採取歌廳文件路徑爲.LNK自己，因爲我將在同一個運行該.vbs的護理路徑作爲.lnk文件。

Answer 1

下面是一個VBScript，可以提取所有目標從位於您的桌面上的鏈接路徑的一個例子：

Option Explicit 
Dim Ws,objStartFolder,objFSO,objFolder,colFiles 
Dim objFile,strFilePath,Lnk 
Set Ws = CreateObject("Wscript.Shell") 
objStartFolder = Ws.SpecialFolders("Desktop") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFolder(objStartFolder) 
    Set colFiles = objFolder.Files 
    For Each objFile in colFiles 
    strFilePath = objFile.Path 
    If Ucase(objFSO.GetExtensionName(strFilePath)) = "LNK" Then 
     Call ExtractTargetPath(strFilePath) 
    End If 
    Next 
'************************************************************* 
Sub ExtractTargetPath(Lnk) 
set Ws = CreateObject("WScript.Shell") 
set Lnk = Ws.Createshortcut(Lnk) 
WScript.echo "Link="& DblQuote(Lnk) & vbcrlf &_ 
"Target="& DblQuote(Lnk.TargetPath) 
End Sub 
'************************************************************* 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'************************************************************* 

編輯：於19/06/2017 @ 14：00

您可以使用批處理文件使用該VBScript中也做到這一點：

Extract_Targets_Links.bat

@echo off 
Title Extract targets paths from links 
Set "LogFile=Links_Targets.txt" 
If exist "%LogFile%" Del "%LogFile%" 
Set "Desktop=%Userprofile%\Desktop" 
Set "All_Users=%ProgramData%\Microsoft\Windows\Start Menu\Programs\Startup" 
Set "Current_User=%UserProfile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" 
Set "VbsFile=%Tmp%\%~n0.vbs" 

> "%VbsFile%" (
    echo Option Explicit 
    echo Dim Ws,objStartFolder,objFSO,objFolder,colFiles 
    echo Dim objFile,strFilePath,Lnk 
    echo Set Ws = CreateObject("Wscript.Shell"^) 
    echo objStartFolder = WSH.Arguments(0^) 
    echo Set objFSO = CreateObject("Scripting.FileSystemObject"^) 
    echo Set objFolder = objFSO.GetFolder(objStartFolder^) 
    echo Set colFiles = objFolder.Files 
    echo For Each objFile in colFiles 
    echo strFilePath = objFile.Path 
    echo If Ucase(objFSO.GetExtensionName(strFilePath^)^) = "LNK" Then 
    echo  Call ExtractTargetPath(strFilePath^) 
    echo End If 
    echo Next 
    echo '************************************************************* 
    echo Sub ExtractTargetPath(Lnk^) 
    echo set Lnk = Ws.Createshortcut(Lnk^) 
    echo WScript.echo "Link="^& DblQuote(Lnk^) ^& vbcrlf ^&_ 
    echo "Target="^& DblQuote(Lnk.TargetPath^) ^& vbcrlf ^&_ 
    echo String(100,"*"^) 
    echo End Sub 
    echo '************************************************************* 
    echo Function DblQuote(Str^) 
    echo  DblQuote = Chr(34^) ^& Str ^& Chr(34^) 
    echo End Function 
    echo '************************************************************* 
) 

For %%A in ("%Desktop%" "%All_Users%" "%Current_User%") Do (
    Call :ExtractTarget "%%~A" "%LogFile%" 
) 

Start "" "%LogFile%" & Exit /b 
::****************************************************************************** 
:ExtractTarget <Folder> <LogFile> 
>> %2 (
    echo ===================================================================== 
    echo     Links and their targets on %1 
    echo ===================================================================== 
) 
For %%f in (%1) Do (
    CScript /nologo "%VbsFile%" "%%~f" >> %2 
) 
Exit /b 
::******************************************************************************