VBCoding Библиотека кодов Visual Basic 6 Файловая система Получить имя файла из полного пути

Visual Basic 6
Получить имя файла из полного пути
Public Function GetFileNameFromPath(ByVal FilePath$) As String
On Error Resume Next
Dim c As Long
c = InStrRev(1, FilePath, "\")
If c = 0 Or c = Len(FilePath) Then Exit Function
GetFileNameFromPath = Mid(FilePath, c + 1)
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Файловая система Получить имя файла из полного пути  
Powered by Exponenta -