Get full path with Unicode file name

Question

I have a path in short version or in DOS format (\"C:/DOCUME~1\" e.g) and want to get the full path/long path of it (\"C:/Documents And Settings\"

Answer 1

To use W-functions from vb6/vba, you declare all string parameters as long:

Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameW" _
  (ByVal lpszShortPath As Long, _
   ByVal lpszLongPath As Long, _
   ByVal cchBuffer As Long) As Long

and pass StrPtr(a_string) instead of just a_string.

So if you had:

dim s_path as string
dim l_path as string

s_path = "C:\DOCUME~1"
l_path = string$(1024, vbnullchar)

GetLongPathNameA s_path, l_path, len(l_path)

it would become

dim s_path as string
dim l_path as string

s_path = "C:\DOCUME~1"
l_path = string$(1024, vbnullchar)

GetLongPathNameW strptr(s_path), strptr(l_path), len(l_path)