フルパスをディレクトリ、ファイル名、拡張子に分ける
ファイルのフルパスを、ディレクトリ、ファイル名、拡張子に分けます。
| Dim sFile As String sFile = "C:\Users\hogehoge\Desktop\サンプル.txt" 'ディレクトリ MsgBox objFSO.GetParentFolderName(sFile) 'ファイル名 MsgBox objFSO.GetFileName(sFile) 'ファイル名（拡張子を除く） MsgBox objFSO.GetBaseName(sFile) '拡張子を除く MsgBox objFSO.GetExtensionName(sFile) |
順に、
C:\Users\hogehoge\Desktop
サンプル.txt
サンプル
txt
と表示されます。
参照設定しない場合は、
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関数を使います。
同じテーマ「マクロVBA技術解説」の記事
シートに数式を設定する時のセル参照の指定方法
標準モジュールとシートモジュールの違い
オートフィルタ（AutoFilter）の使い方まとめ
複雑な条件（複数除外等）のオートフィルター（AutoFilter）
クリップボードを使わないセルのCopy
Rangeの使い方：最終行まで選択を例に
フルパスをディレクトリ、ファイル名、拡張子に分ける
Colorプロパティの設定値一覧
VBAを定型文で覚えよう
VBAこれだけは覚えておきたい必須基本例文10
エクセルVBAでのシート指定方法
新着記事NEW ・・・新着記事一覧を見る
クラスとCallByNameとポリモーフィズム(多態性)｜VBA技術解説（4月6日）
VBAでのタイマー処理（SetTimer,OnTime）｜VBA技術解説（4月3日）
クラスとイベントとマルチプロセス並列処理｜VBA技術解説（4月2日）
エクセルの日付と時刻のまとめ｜エクセル関数超技（3月6日）
Excelシートの複雑な計算式を解析するVBA｜VBAサンプル集（2月18日）
VBAクラスの作り方：独自Rangeっぽいものを作ってみた｜VBA技術解説（2月16日）
VBAクラスの作り方：列名のプロパティを自動作成する｜VBA技術解説（2月14日）
VBAクラスの作り方：列名の入力支援と列移動対応｜VBA技術解説（2月11日）
クラスを使って他ブックのイベントを補足する｜VBA技術解説（2月6日）
Excelアドインの作成と登録について｜VBA技術解説（2月3日）
アクセスランキング ・・・ ランキング一覧を見る
1.ひらがな⇔カタカナの変換｜エクセル基本操作
2.最終行の取得（End,Rows.Count）｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.変数とデータ型（Dim）｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.繰り返し処理（For Next)｜ExcelマクロVBA入門
9.とにかく書いて見よう（Sub,End Sub）｜VBA入門
10.セルに文字を入れるとは（Range,Value）｜VBA入門
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。