Извлечение названия файла - VB
Формулировка задачи:
Druzya kak izvlech nazvaniya fayla iz etoy stroki
O:Sgi_KBR_EngCADAs_Built-Drawings_InABR-1BR-1DFLZZ-ST-DTL-2063-01.dwg
senks
Решение задачи: «Извлечение названия файла»
textual
Листинг программы
Private Function GetInStrShortFileName(ByVal pstrFullFileName As String) As String pstrFullFileName = Replace(pstrFullFileName, '/', ' ') GetInStrShortFileName = Mid(pstrFullFileName, InStrRev(pstrFullFileName, ' ') + 1) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д