'================================================================== '「送る」の「MD5 SHA1 SHA256 をメモへ書き出し」のショートカットをを削除しますYO! 'http://www10.plala.or.jp/palm84/wsh.html 'http://palm84.hatenablog.com/entry/ 'http://www10.plala.or.jp/palm84/archives/wsh/Delete_MD5_SHA1_memo-sendto.vbs.txt 'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Delete_MD5_SHA1_memo-sendto.vbs.txt '================================================================== '最終更新 2020.05.30 SHA256 追記 'Shell オブジェクトを作成 Set objShell = WScript.CreateObject("WScript.Shell") 'FileSystemObject オブジェクトを作成 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") OldTitle = "MD5-SHA1 メモ" Title = "MD5-SHA1-SHA256 メモ" MyKakunin Dim strFile, strShortCut '*** 環境変数とか取得 *** SendTo = objShell.SpecialFolders("SendTo") '*** MD5-SHA1 書き出し *** strFile = SendTo & "\MD5_SHA1_memo-sendto.bat" MyDeleteFile MsgBox "終了です YO!" & vbcrlf & vbcrlf,64 ,"(´・ω・`) クマー! " Set objFSO = Nothing Set objShell = Nothing '********************************************************* 'Sub MyKakunin '********************************************************* Sub MyKakunin Kakunin = MsgBox ("「" & Title & "」 を削除しますのん? (´・ω・`)", 49 ,Title & " を削除するYO! (´・ω・`) ") If Kakunin = 2 Then WScript.Quit End If End Sub '********************************************************* 'Sub MyDeleteFile '********************************************************* Sub MyDeleteFile 'ファイルが存在するなら削除 If objFSO.FileExists(strFile) Then objFSO.DeleteFile(strFile) End If strShortCut = Sendto & "\" & Title & ".lnk" 'ファイルが存在するなら削除 If objFSO.FileExists(strShortCut) Then objFSO.DeleteFile(strShortCut) End If strOldShortCut = Sendto & "\" & OldTitle & ".lnk" 'ファイルが存在するなら削除 If objFSO.FileExists(strOldShortCut) Then objFSO.DeleteFile(strOldShortCut) End If End Sub