Private Const MAX_PATH As Integer = 255
<DllImport("kernel32.dll", SetLastError := True, CharSet := CharSet.Auto)> _
Private Function GetLongPathName(ByVal lpszShortPath As String, <Out()> _
ByVal lpszLongPath As System.Text.StringBuilder, ByVal cchBuffer As UInteger) As UInteger
End Function
Public Shared Function GetLongPathName(ByVal lpszShortPath As String) As String
Dim sb As New System.Text.StringBuilder(MAX_PATH)
GetLongPathName(lpszShortPath, sb, MAX_PATH)
Return sb.ToString()
End Function