Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Apr 27, 1999

GetShortFileName - Convert a filename to 8.3 format

Private Declare Function GetShortPathName Lib "kernel32" Alias _
    "GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

' Convert a long filename into the short 8.3 format
' if the file doesn't exist, return a null string

Function GetShortFileName(ByVal LongFileName As String) As String
    Dim buffer As String, length As Long
    ' Prepare the receiving buffer
    buffer = Space$(300)
    length = GetShortPathName(LongFileName, buffer, Len(buffer))
    ' if return value was non-zero, estract the result
    ' else, it returns a null string (probably
    GetShortFileName = Left$(buffer, length)
 End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date