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
Oct 9, 1999

ShortPathName - Convert a long file name 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

Const MAX_PATH = 260

' Convert a long file/path name to a short 8.3 name
' the path must exist, but the file doesn't have to
' Return a null string in case of error

Public Function ShortPathName(ByVal FileName As String) As String
    Dim length As Long, res As String
    res = String$(MAX_PATH, 0)
    length = GetShortPathName(FileName, res, Len(res))
    If length Then
        ShortPathName = Left$(res, length)
    End If
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