21 lines
649 B
Text
21 lines
649 B
Text
|
Rem Немножко хулиганим с FSO
|
||
|
Rem Самоудаляемый скрипт
|
||
|
|
||
|
Rem Запустите этот скрипт и он удалится!
|
||
|
|
||
|
Option Explicit
|
||
|
|
||
|
Dim FSO, backuping, scriptName
|
||
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
||
|
backuping = True 'если хотите, чтобы скрипт сам себя забэкапил, установите
|
||
|
'backuping = True
|
||
|
scriptName = WScript.ScriptName
|
||
|
|
||
|
Sub BackupScript()
|
||
|
FSO.CreateFolder "backup"
|
||
|
FSO.CopyFile scriptName, "backup\" & scriptName
|
||
|
End Sub
|
||
|
|
||
|
If backuping = True then Call BackupScript() End if
|
||
|
FSO.DeleteFile scriptName
|