home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / ShortPath.exe / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-07-07  |  221 b   |  5 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
  4.  
  5.