Menuへ

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

ファイル選択ダイアログを使用した場合など、取得したファイル名はフルパスになります。そこから、下記のようにしパスを除いたファイル名のみを取り出すことができます。方法は、フルパスを逆の最後尾から１文字づつ読み「￥」文字が見つかれば、そこまでがファイル名ということになります。一文字の取り出しはMid関数を使用しています。この方法を応用し、拡張子、拡張子を除くファイル名、パス名のみなどを取り出すこともできます。

呼び出し

Private Sub GetFile()     Dim makefile As String          makefile = GetFileName("C:\MYEXCEL\book2.xls") End Sub

標準モジュールコード

'フルパスからファイル名のみ取得 Function GetFileName(fullpath As String) As String     Dim i As Integer     Dim nlen As Integer     Dim s As String On Error GoTo Errsub     nlen = Len(fullpath)     For i = nlen To 0 Step -1         s = Mid$(fullpath, i, 1)         If s = "\" Then Exit For     Next     s = Right$(fullpath, nlen - i)     GetFileName = s     Exit Function Errsub:     GetFileName = "" End Function

Topへ　Homeへ