フルパスから拡張子の付いてないファイル名を取得するには?

Question 79.4 Excel VBA Borad (掲示板)より Previous Next
初めまして。
仕事でVBAを使用しますが、ファイル名取得の展開で教えて頂きたいので、宜しくお願いします。
以下のファイル名から、最終ファイル名 ”CIMG0390” を取り出したいのですが、どう組めいいのですか?
"C:\Documents and Settings\My Documents\災害\写真\9.8撮影\CIMG0390.JPG"
Answer   2006.10.5 かみちゃん
こんにちは。 かみちゃん です。
FileSystemObject(FSO) の GetBaseNameメソッドを使えばできます。
Sub Macro1()
Dim FSO
Dim strFileName As String
    strFileName = _
        "C:\Documents and Settings\My Documents\災害\写真\9.8撮影\CIMG0390.JPG"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    MsgBox FSO.GetBaseName(strFileName)
End Sub
FSOについては、以下が参考になると思います。
http://www.officetanaka.net/excel/vba/filesystemobject/index.htm

 

Excel VBA Macro