'================================================================== '「送る」の MD5 (SHA1/SHA256) ファイル作成【ファイル毎に】のショートカットをを削除しますYO! 'http://www10.plala.or.jp/palm84/wsh.html 'http://palm84.hatenablog.com/entry/20150910/1441884571 'http://www10.plala.or.jp/palm84/archives/wsh/Delete_MD5_Make_filename_txt-sendto.vbs.txt 'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Delete_MD5_Make_filename_txt-sendto.vbs.txt '================================================================== '最終更新 2020.05.30 SHA256 追記 'Shell オブジェクトを作成 Set objShell = WScript.CreateObject("WScript.Shell") 'FileSystemObject オブジェクトを作成 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Title = "MD5 / SHA1 / SHA256 ファイル作成" MyKakunin Dim strFile, strShortCut '*** 環境変数とか取得 *** SendTo = objShell.SpecialFolders("SendTo") '*** MD5 (SHA1) リストファイル作成 *** strMD = "MD5" Title = strMD & " ファイル作成" strFile = SendTo & "\" & strMD & "_Make_filename_txt-sendto.bat" MyDeleteFile strMD = "SHA1" Title = strMD & " ファイル作成" strFile = SendTo & "\" & strMD & "_Make_filename_txt-sendto.bat" MyDeleteFile strMD = "SHA256" Title = strMD & " ファイル作成" strFile = SendTo & "\" & strMD & "_Make_filename_txt-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 End Sub