P.S. Поиск юзал, все 2964 записей перебрать не удалось

Viper писал(а):А Declare не кошенрный уже способ?
BV писал(а):Может, автор о статической библиотеке?
Я не понял о чем идет речь
Private Declare Function GetShortPathName Lib "kernel32" Alias
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath
As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
ngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
MsgBox GetShortPath("c:\Program Files\")
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 6