0

私はこれまでvbscriptを実行したことがないので、私の質問が非常に簡単なものかどうかはわかりません。以下は、実行する必要のある手順のフローです。

存在するかどうかを確認し、見つかった場合はc:\ test1にあるフォルダーを削除して、続行します。見つからない場合は続行します。存在するかどうかを確認し、見つかった場合はc:\ programfiles \ test2にあるフォルダーを削除して、続行します。見つからない場合は続行します。デスクトップショートカットとスタートメニューショートカットが存在するかどうかを確認し、見つかった場合は削除します。終了しない場合。

次のコードで2つのフォルダを削除できます。

strPath1 = "C:\test1"
strPath1 = "C:\test1"
DeleteFolder strPath1
DeleteFolder strPath1
Function DeleteFolder(strFolderPath1)
Dim objFSO, objFolder
Set objFSO = CreateObject ("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolderPath) Then
    objFSO.DeleteFolder strFolderPath, True
End If
Set objFSO = Nothing

しかし、1つのスクリプトを実行して、異なるパスにある2つのフォルダーを削除する必要があります。2つのショートカットはスタートメニューにあり、もう1つはデスクトップにあります。

デスクトップのショートカットを削除するために、このコードを試していました。

Dim WSHShell, DesktopPath
   Set WSHShell = WScript.CreateObject("WScript.Shell")
   DesktopPath = WSHShell.SpecialFolders("Desktop")
   on error resume next
   Icon = DesktopPath & "\sample.txt"
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set A = fs.GetFile(Icon)
   A.Delete
   WScript.Quit

デスクトップ上のtxtファイルでは正常に機能しますが、アプリケーションのショートカットをデスクトップとスタートメニューから削除するにはどうすればよいですか。

4

1 に答える 1

0
strPath1 = "C:\test1"
strPath2 = "C:\test2"

DeleteFolder strPath1
DeleteFolder strPath2

DeleteShortcut

'-------------------------------------------------------
Sub DeleteFolder(strFolderPath)
  Set fso = CreateObject ("Scripting.FileSystemObject")
  If fso.FolderExists(strFolderPath) Then
    fso.DeleteFolder strFolderPath, True
  End If
End Sub

'-------------------------------------------------------    
Sub DeleteShortcut()
  Set WSHShell = WScript.CreateObject("WScript.Shell")
  DesktopPath = WSHShell.SpecialFolders("Desktop")

  shortcutPath = DesktopPath & "\MyShortcut.lnk"
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(shortcutPath) Then
    Set myFile = fso.GetFile(shortcutPath)
    myFile.Delete
  End If
End Sub
于 2012-10-31T16:59:11.173 に答える