You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
557 B
26 lines
557 B
Function BackupFiles()
|
|
|
|
dim fso
|
|
dim strWindows
|
|
dim strNewName
|
|
dim strCurrentName
|
|
|
|
on error resume next
|
|
|
|
strWindows = Session.Property( "WindowsFolder" )
|
|
strNewName = strWindows & "Help\suptoolsold.chm"
|
|
strCurrentName = strWindows & "Help\suptools.chm"
|
|
|
|
set fso = createobject( "scripting.filesystemobject" )
|
|
if not fso is nothing then
|
|
if fso.FileExists( strNewName ) then
|
|
fso.DeleteFile strNewName, true
|
|
end if
|
|
|
|
fso.MoveFile strCurrentName, strNewName
|
|
set fso = nothing
|
|
end if
|
|
|
|
BackupFiles = 1
|
|
|
|
End Function
|