VBA技術解説
フルパスをディレクトリ、ファイル名、拡張子に分ける

ExcelマクロVBAの問題点と解決策、VBAの技術的解説
最終更新日:2017-04-15

フルパスをディレクトリ、ファイル名、拡張子に分ける

ファイルのフルパスを、ディレクトリ、ファイル名、拡張子に分けます。


FileSystemObjectを使う方法と、VBA関数で分けるVBAのサンプルコードになります。



Dim sFile As String
sFile = "C:\Users\hogehoge\Desktop\サンプル.txt"

Dim objFSO As New FileSystemObject

'ディレクトリ
MsgBox objFSO.GetParentFolderName(sFile)
'ファイル名
MsgBox objFSO.GetFileName(sFile)
'ファイル名(拡張子を除く)
MsgBox objFSO.GetBaseName(sFile)
'拡張子を除く
MsgBox objFSO.GetExtensionName(sFile)

順に、
C:\Users\hogehoge\Desktop
サンプル.txt
サンプル
txt
と表示されます。


「Microsoft Scripting Runtime」を参照設定してください。
参照設定しない場合は、
Dim objFSO As Objec
Set objFSO = CreateObject("Scripting.FileSystemObject")
として下さい。



Dim sFile As String
sFile = "C:\Users\hogehoge\Desktop\サンプル.txt"

'ディレクトリ
MsgBox Left(sFile, InStrRev(sFile, "\") - 1)
'ファイル名
MsgBox Mid(sFile, InStrRev(sFile, "\") + 1)
'ファイル名(拡張子を除く)
MsgBox Mid(sFile, InStrRev(sFile, "\") + 1, InStrRev(sFile, ".") - InStrRev(sFile, "\") - 1)
'拡張子を除く
MsgBox Mid(sFile, InStrRev(sFile, ".") + 1)

順に、
C:\Users\hogehoge\Desktop
サンプル.txt
サンプル
txt
と表示されます。


ディレクトリは最後の\の前まで、最後の\の後ろがファイル名になります。
ファイル名には、.が含まれる場合もあるので、
最後の.以降が拡張子となります。
つまり、ディレクトリの\や、拡張子の.を文字列の後ろから検索するのがコツです。
それには、InStrRev関数を使います。
InStrREv関数は、文字列の中から指定した文字列を最後の文字位置から検索を開始し、最初に見つかった文字位置を返す文字列処理関数です、バリアント型(内部処理形式StringのVariant)で返します。InStrRev関数 InstrRev(stringcheck,stringmatch[,start[,



同じテーマ「マクロVBA技術解説」の記事

複雑な条件(複数除外等)のオートフィルター(AutoFilter)
クリップボードを使わないセルのCopy
Rangeの使い方:最終行まで選択を例に
フルパスをディレクトリ、ファイル名、拡張子に分ける
Colorプロパティの設定値一覧
VBAを定型文で覚えよう
VBAこれだけは覚えておきたい必須基本例文10
エクセルVBAでのシート指定方法
文字列結合&でコンパイルエラーになる理由
手動計算時の注意点と再計算方法
VBAの用語について:ステートメントとは


新着記事NEW ・・・新着記事一覧を見る

Variantの数値型と文字列型の比較|エクセル雑感(7月1日)
VBAのVariant型について|VBA技術解説(6月30日)
VBAのString型の最大文字数について|エクセル雑感(6月20日)
VBAで表やグラフをPowerPointへ貼り付ける|VBAサンプル集(6月19日)
アクティブシート以外の表示(Window)に関する設定|VBA技術解説(6月17日)
マクロ記録での色のマイナス数値について|エクセル雑感(6月16日)
ツイッター投稿用に文字数と特定文字で区切る|エクセル雑感(6月15日)
日付の謎:IsDateとCDate|エクセル雑感(6月14日)
IFステートメントの判定|エクセル雑感(6月13日)
インクリメンタルサーチの実装|ユーザーフォーム入門(6月12日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ