Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с файлами/директориями  
     
  Получить 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
 
     
  VBNet online (всего: 51585)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам