'==================================================================
'「送る」の「バックアップコピー」のショートカットを削除しますYO！
'http://www10.plala.or.jp/palm84/wsh.html
'http://palm84.hatenablog.com/entry/20160306/1457226682
'http://www10.plala.or.jp/palm84/archives/wsh/Delete_BackupCopy-date-time-sendto.vbs.txt
'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Delete_BackupCopy-date-time-sendto.vbs.txt
'==================================================================
'Shell オブジェクトを作成
Set objShell = WScript.CreateObject("WScript.Shell")
'FileSystemObject オブジェクトを作成
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Title = "バックアップコピー"

MyKakunin

'*** 環境変数とか取得 ***
SendTo = objShell.SpecialFolders("SendTo")
CuDir = objShell.CurrentDirectory

'*** ファイルのバージョンチェック ***
strFile = SendTo & "\BackupCopy_date-time-sendto.bat"
MyDeleteFile

MsgBox "終了です YO！"  & vbcrlf & vbcrlf,64 ,"(´･ω･`) クマー！ "

Set objFSO = Nothing
Set objShell = Nothing

'*********************************************************
'Sub MyKakunin
'*********************************************************
Sub MyKakunin
Kakunin = MsgBox ("「" & Title & "」を削除しますのん？ (´･ω･`)", 49 ,"「" & Title & "」を削除するＹＯ！  (´･ω･`) ") 
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