| |
Получить DOS-имя файла |
|
| |
Функция GetShortName в качестве входного параметра принимает длинное имя файла и возвращает DOS-имя файла
Private Declare Function GetShortPathName Lib
"kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As
String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function GetShortName(lName As String) As String
Dim DosName As String
Dim LenOfDosName As Long
DosName = Space(256)
LenOfDosName = GetShortPathName(lName, DosName, 256)
GetShortName = Left$(DosName, LenOfDosName)
End Function
Private Sub Form_Load()
Dim LongName As String
LongName = "C:\Program Files\Internet Explorer\Iexplore.exe"
MsgBox GetShortName(LongName)
End Sub
|
|
| |
|
|
|
|