Не далеко закатилось :)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Public Function GetShortName(ByVal sLongFileName As String) As String
Dim lRetVal As Long, sShortPathName As String, iLen As Integer
'Set up buffer area for API function call return
sShortPathName = Space(255)
iLen = Len(sShortPathName)
'Call the function
lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
'Strip away unwanted characters.
GetShortName = Left(sShortPathName, lRetVal)
End Function
Вызов:
? GetShortName ("c:\WINDOWS\Temp\oooo@$%&^.txt") вернет
c:\WINDOWS\Temp\OOOO@$~1.TXT
Вот это полученное имя и передавай в свою прогу.
Сам файл есно должен существовать, и вроде не должна отключена опция поддержки имен 8.3 в Виндоусе - вроде в разных твикерах ее можно отключить (сам не пользуюсь - но во всяком случае видел)- типа чтобы операционка работала быстрей
