FileSystemObject:フォルダやファイルの種類を調べる(Type プロパティ)
2017/09/22
フォルダやファイルの種類を取得(Type プロパティ)
FileSystemObject(FSO)で、指定したフォルダやファイルの種類を表す文字列を取得するには、Folder オブジェクト または、File オブジェクト の Type プロパティ を使用します。
FileSystemObject(FSO)のインスタンスを生成する方法は、ファイルシステムオブジェクト(FileSystemObject)の使い方 を参照してください。
<取得>
object.Type
引数・戻り値
- object ・・・ Folder オブジェクト または、File オブジェクトを指定します。
File オブジェクトに関しては、FileSystemObject:File オブジェクトを取得(GetFile) 、Folder オブジェクトに関しては、FileSystemObject:Folder オブジェクトの取得 を参照してください。
Type プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Sub Sample_FSOType() Dim fso As New FileSystemObject Dim myFolders As Folders Dim myFiles As Files Dim d As Folder Dim f As File Dim str As String Set myFolders = fso.GetFolder("C:\Documents\mydata3\test1\").SubFolders For Each d In myFolders str = str & d.Name & "(" & d.Type & ")" & vbCrLf Next Set myFiles = fso.GetFolder("C:\Documents\mydata3\test1\").Files For Each f In myFiles str = str & f.Name & "(" & f.Type & ")" & vbCrLf Next MsgBox str End Sub |
実行結果
関連記事
-
-
ファイルシステムオブジェクト(FileSystemObject)の使い方
ファイルシステムオブジェクト(FileSystemObject) FileSys …
-
-
FileSystemObject:ファイル・フォルダの最終更新日時を取得(DateLastModified プロパティ)
ファイル・フォルダの最終更新日時を取得(DateLastModified プロパ …
-
-
TextStream ファイルに書き込む(Write,WriteLine,WriteBlankLines)
Write メソッド TextStream ファイルに、指定した文字列を書き込み …
-
-
FileSystemObject:フォルダ内のすべてのファイルを取得(Files プロパティ)
フォルダ内のすべてのファイルを取得(Files プロパティ) フォルダ内のすべて …
-
-
FileSystemObject:File オブジェクトを取得(GetFile)
File オブジェクトを取得(GetFile メソッド) FileSystemO …
-
-
FileSystemObject:ファイルを開く・閉じる(OpenTextFile ,Close)
ファイルを開く(OpenTextFile メソッド) FileSystemObj …
-
-
FileSystemObject:フォルダをコピー(CopyFolder メソッド)
フォルダをコピー(CopyFolder メソッド) FileSystemObje …
-
-
FileSystemObject:ファイル・フォルダの最終アクセス日時を取得(DateLastAccessed プロパティ)
ファイル・フォルダの最終アクセス日時を取得(DateLastAccessed プ …
-
-
FileSystemObject:Folder オブジェクトの取得
Folder オブジェクトの取得 Folder オブジェクト を取得するには、F …
-
-
FileSystemObject:フォルダまたはファイルの名前を取得または設定する(Name プロパティ)
フォルダまたはファイルの名前を取得または設定する(Name プロパティ) Fil …