ファイルの種類を調べるには FileObject の Type プロパティを使用します。
obj1.Type
オブジェクト(obj1) |
FileObject オブジェクト FileSystemObject オブジェクトの GetFile メソッドで生成する |
値 | ファイルの種類を表す文字列 |
ファイルの種類は拡張子で判断されます。
そのため、テキストファイルを「.xls」という拡張子で保存した場合、プロパティの値は「Microsoft Excel ワークシート」となります。
'変数を宣言 Dim str_path Dim objFS Dim objFile Set objFS = CreateObject("Scripting.FileSystemObject") '"vbs.txt" というファイルの File オブジェクトを取得する Set objFile = objFS.GetFile(".\vbs.txt") 'ファイルの種類を表示 '拡張子が ".txt" の場合 "テキスト文書" と表示される MsgBox objFile.Type