Мб тупо, но не знаю.

[Proxy]

Как работать с GetShortPathName? И где его антипод?
В поиске нету ничего норм. или лениво.

[BION]

Как работать с GetShortPathName? И где его антипод?
В поиске нету ничего норм. или лениво.

Код: Выделить всё

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
'· lpszLongPath
'Points to a null-terminated path string. The function obtains the short form 'of this path.
'
'· lpszShortPath
'Points to a buffer to receive the null-terminated short form of the path 'specified by lpszLongPath.
'
'· cchBuffer
'Specifies the size, in characters, of the buffer pointed to by lpszShortPath.

Public Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
    MsgBox GetShortPath("c:\Program Files")
End Sub

И вообще, скачай себе API-Guide http://www.allapi.net/

[Proxy]

О, псп. Я это уже и раньше видел, но не задумывался. Пасиб.
Как закрыть тему?

ЗЫ. А из короткого длинный как сделать? Просто некоторые функции (иногда и environ) возвращают короткие, но надо длинный. Извините за ламерство, но я новичёк в vb.

[tyomitch]

Как ни странно, обратная функция называется GetLongPathName.