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 >
Text File  |  2008-04-14  |  447b  |  14 lines
  1. Function InstallSupToolsChm ()
  2.     dim fso, tFolder
  3.     Set fso = CreateObject("Scripting.FileSystemObject")
  4.     Set tfolder = fso.GetSpecialFolder(0)
  5.     strHelpDir = tFolder.path & "\help"
  6.     strStubChmName = strHelpDir & "\suptools.chm"
  7.     strNewStubChmName = strHelpDir & "\suptools_old.chm"
  8.     If (fso.FileExists(strStubChmName)) Then
  9.         fso.MoveFile strStubChmName,strNewStubChmName
  10.     End If
  11.     set fso = nothing
  12.     InstallSupToolsChm = 1
  13. End Function
  14.