すぐに役立つエクセルVBAマクロ集 FAQ 拡張子なしのファイル名を取得

　すぐマク　YNxv9124

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

Ｑuestion 79.4　開始終了

Excel VBA Borad （掲示板）より

初めまして。
仕事でVBAを使用しますが、ファイル名取得の展開で教えて頂きたいので、宜しくお願いします。
以下のファイル名から、最終ファイル名 ”CIMG0390” を取り出したいのですが、どう組めいいのですか？
"C:\Documents and Settings\My Documents\災害\写真\9.8撮影\CIMG0390.JPG"

Ａnswer　　

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

http://www.happy500z.com/