home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD141141242001.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-01-24  |  363 b   |  13 lines
  1. Attribute VB_Name = "Module1"
  2. 'This module gets the short path name
  3. 'of a long path name
  4.  
  5. 'Ex.  C:\Program Files\Script1.ccs
  6. '       becomes
  7. '     C:\Progra~1\Script1.ccs
  8. Declare Function GetShortPathName Lib "kernel32" Alias _
  9.   "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal _
  10.   lpszShortPath As String, ByVal cchBuffer As Long) As Long
  11.  
  12.  
  13.