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.UnInstallSupToolsChm
< prev
Wrap
Text File
|
2008-04-14
|
452b
|
14 lines
Function UnInstallSupToolsChm ()
dim fso, tFolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(0)
strHelpDir = tFolder.path & "\help"
strStubChmName = strHelpDir & "\suptools_old.chm"
strNewStubChmName = strHelpDir & "\suptools.chm"
If (fso.FileExists(strStubChmName)) Then
fso.MoveFile strStubChmName, strNewStubChmName
End If
set fso = nothing
UnInstallSupToolsChm = 1
End Function