home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.ac-grenoble.fr
/
2015.02.ftp.ac-grenoble.fr.tar
/
ftp.ac-grenoble.fr
/
assistance.logicielle
/
XP_ServicePack-3.iso
/
support
/
tools
/
suptools.msi
/
Binary.InstallSupToolsChm
< prev
next >
Wrap
Text File
|
2008-04-14
|
447b
|
14 lines
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