Извлечение названия файла

' In Project/References, select Microsoft Scripting Runtime
' Copy this code:
 
Private Sub Command1_Click()
 
    Dim SFO As New Scripting.FileSystemObject
    Dim strFullFileName As String
    Dim strShortFileName As String
    
    strFullFileName = 'O:Sgi_KBR_EngCADAs_Built-Drawings_InABR-1BR-1DFLZZ-ST-DTL-2063-01.dwg'
    strShortFileName = SFO.GetFileName(strFullFileName)
    
    MsgBox strShortFileName
    
    Set SFO = Nothing
 
End Sub

Private Function GetFSOShortFileName(ByVal pstrFullFileName As String) As String
    Dim SFO As New Scripting.FileSystemObject
    GetFSOShortFileName = SFO.GetFileName(pstrFullFileName)
    Set SFO = Nothing
End Function
 
Private Function GetInStrShortFileName(ByVal pstrFullFileName As String) As String
   GetInStrShortFileName = Mid(pstrFullFileName, InStrRev(pstrFullFileName, ' ') + 1)
End Function

Private Function GetInStrShortFileName(ByVal pstrFullFileName As String) As String
  pstrFullFileName = Replace(pstrFullFileName, '/', ' ')
  GetInStrShortFileName = Mid(pstrFullFileName, InStrRev(pstrFullFileName, ' ') + 1)
End Function