Visual Basic Tips

パス名からファイル名取得

パス名からファイル名のみを抽出します。結構重宝します。


Function MakeFilename(strFileName As String) As String
　　On Error Resume Next
　　Dim i As Integer
　　Dim j As Integer

　　For i = Len(strFileName) To 1 Step -1
　　　　j = j + 1
　　　　If Mid(strFileName, i, 1) = "\" Then
　　　　　　Exit For
　　　　End If
　　Next

　　MakeFilename = Right(strFileName, j - 1)

End Function