27 lines
557 B
Plaintext
27 lines
557 B
Plaintext
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
|