где засада:
Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" _
(ByVal lpFileName As String, ByVal nBufferLength As Long, _
ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
'отсюда получаю короткий путь и вызываю функцию pathname
Dim str As String
str = Command
MsgBox str 'E:\Аудио\Музыка~1\Sabbat~1\Nation~1.MP3
pathname str
Function pathname(shotstring) As String
Dim lpBuffer As String
Dim BufLen As Long, retval As Long
Dim FName As String
Dim FPath As String
FName = shotstring
BufLen = 255
lpBuffer = Space(255)
retval = GetFullPathName(FName, BufLen, lpBuffer, _
FPath)
MsgBox FName 'E:\Аудио\Музыка~1\Sabbat~1\Nation~1.MP3
MsgBox BufLen '255
MsgBox lpBuffer 'E:\Аудио\Музыка~1\Sabbat~1\Nation~1.MP3
MsgBox FPath 'пустой
MsgBox retval '39
End Function
что отправил,то и получил обратно
Судя по retval=39, ф-ция отработала без ошибок,
только где конечный результат??? Хотелось бы получить
E:\Аудио\Музыка-Рок\Sabbat Bloody Sabbath\National Acrobat.MP3
или хотябы National Acrobat.MP3
