2

デスクトップ フォルダ内のすべてのショートカットを削除し、クリーンなショートカット セットが追加されるようにします。

ただし、マップされたドライブへのショートカットを保持する必要があります。[プロパティ] の [ショートカット] タブを見ると、このタイプのショートカットにはTarget type[ファイル フォルダー] があることがわかります。

問題は、VBS を介してターゲット タイプにアクセスする方法が見つからないことです。タイプ ( objFile.Type) を取得できますが、Type of file[全般] タブ (この場合は [ショートカット]) に表示されます。

にアクセスする方法を知っている人はいTarget typeますか? ありがとう。

For Each objFile in objFolder.Files

    ' Check that the file 'Target type' is not 'File Folder'
    If Not objFile.Type = "File Folder" Then
        objFSO.DeleteFile(desktop_locations(i) & objFile.Name)
    End If

Next
4

1 に答える 1

7

ショートカットのターゲットを確認する必要があります。

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh  = CreateObject("WScript.Shell")

shortcut = "C:\path\to\some.lnk"

Set lnk = sh.CreateShortcut(shortcut)
If Not fso.FolderExists(lnk.TargetPath) Then
  'target doesn't exist or is not a folder
  fso.DeleteFile shortcut
End If
于 2013-09-13T11:42:30.437 に答える