home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 401065 / WPO11 / WPO11.msi / Binary.NewBinary20 < prev    next >
Text File  |  2003-04-15  |  508b  |  18 lines
  1.  
  2.     ' Get the length of INSTALLDIR
  3.     Dim nInstallLength:nInstallLength = Len(Session.Property("INSTALLDIR"))
  4.     
  5.     ' Get the MaxPath, set in Property Manager
  6.     Dim nMaxLength:nMaxLength = CInt(Session.Property("MaxPathInstall"))
  7.     
  8.     ' Set property [InstallPathTooLong] if INSTALLDIR length is too long
  9.     Session.Property("InstallPathTooLong") = "0"
  10.  
  11.     If (nInstallLength > nMaxLength) Then
  12.         Session.Property("InstallPathTooLong") = "1"
  13.     Else
  14.         Session.Property("InstallPathTooLong") = "0"
  15.     End If
  16.     
  17.  
  18.