FileSystemObjectのGetExtensionNameメソッドについてです。
GetExtensionNameメソッド
概要
パスの最後の拡張子名が含まれる文字列を返します。
構文
FileSystemObject.GetExtensionName(path)
GetExtensionNameメソッドの引数
| 引 数 | 必須 / 省略可 | 詳 細 |
ファイルパス | 必須 | ファイルパスを指定。 |
VBAサンプル
ファイルの存在をFileExistsメソッドで確認してから拡張子名を取得。
1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub test() Dim path As String: path = "D:\FSO\Folder1\test.xlsx" Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'ファイルの存在を確認 If fso.FileExists(path) Then Debug.Print fso.GetExtensionName(path) Else MsgBox "ファイルが存在しません。" End If End Sub |
【ファイル】
【結果】
xlsx
