mirror of https://github.com/tongzx/nt5src
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.
13 lines
434 B
13 lines
434 B
Function InstallSupToolsChm ()
|
|
dim fso, tFolder
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
Set tfolder = fso.GetSpecialFolder(0)
|
|
strHelpDir = tFolder.path & "\help"
|
|
strStubChmName = strHelpDir & "\suptools.chm"
|
|
strNewStubChmName = strHelpDir & "\suptools_old.chm"
|
|
If (fso.FileExists(strStubChmName)) Then
|
|
fso.MoveFile strStubChmName,strNewStubChmName
|
|
End If
|
|
set fso = nothing
|
|
InstallSupToolsChm = 1
|
|
End Function
|