Visual Basic Tips

パス名からファイル名を除く

パス名からファイルを除きます。結構重宝します。


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

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

　　StripFileName = Mid(strFileName, 1, i - 1)

End Function