Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Get file name

Sub GetFileName()   Dim BackSlash As Integer, Point As Integer   Dim FilePath As String, FileName As String   Dim i As Integer      FilePath = "c:\a\b.xls"   For i = Len(FilePath) To 1 Step -1     If Mid$(FilePath, i, 1) = "." Then       Point = i       Exit For     End If   Next i   If Point = 0 Then Point = Len(FilePath) + 1   For i = Point - 1 To 1 Step -1     If Mid$(FilePath, i, 1) = "\" Then       BackSlash = i       Exit For     End If   Next i   FileName = Mid$(FilePath, BackSlash + 1, Point - BackSlash - 1)   MsgBox FileName End Sub