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