| Как получить имя файла или его расширение, зная полный путь файла |
|
Использование функции простое. В качестве переменной sFullPath задается полный путь файла, в качестве point задается разделитель: "\" - если вы хотите получить имя файла, "." - если вы хотите получить расширение файла. Private Function Spliting(sFullPath As String, point As String) Dim str1() As String str1 = Split(sFullPath, point) Spliting = str1(UBound(str1)) End Function
Источник: http://www.vbnet.ru/ |