FileSystemObject:ルートフォルダかどうかを調べる(IsRootFolder プロパティ)
ルートフォルダかどうかを調べる(IsRootFolder プロパティ)
FileSystemObject(FSO)で、指定したフォルダがルートフォルダかどうかを調べるには、Folder オブジェクト の IsRootFolder プロパティ を使用します。
FileSystemObject(FSO)のインスタンスを生成する方法は、ファイルシステムオブジェクト(FileSystemObject)の使い方 を参照してください。
<取得>
object.IsRootFolder
引数・戻り値
- object ・・・ Folder オブジェクトを指定します。
Folder オブジェクトに関しては、FileSystemObject:Folder オブジェクトの取得 を参照してください。
IsRootFolder プロパティ 使用例
サンプル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 31 |
Sub Sample_IsRootFolder() 'カレントフォルダの階層の深さを調べる Dim fso As New FileSystemObject Dim myFolder As Folder Dim f As Folder Dim n As Long Set myFolder = fso.GetFolder(Application.DefaultFilePath) If myFolder.IsRootFolder Then MsgBox myFolder.Path & " は、ルートフォルダ(階層1)です。" Else Set f = myFolder.ParentFolder n = 2 Do Until f.IsRootFolder Set f = f.ParentFolder n = n + 1 Loop MsgBox myFolder.Name & " の階層の深さは、" & n & " です。" End If End Sub |
実行結果
関連記事
-
-
FileSystemObject:ファイルを開く(OpenAsTextStream メソッド)
ファイルを開く(OpenAsTextStream メソッド) 指定されたファイル …
-
-
FileSystemObject:ファイル・フォルダを削除する(DeleteFile メソッド,DeleteFolder メソッド)
ファイルを削除する(DeleteFile メソッド) FileSystemObj …
-
-
FileSystemObject:ファイルやフォルダのサイズを取得(Size プロパティ)
ファイルやフォルダのサイズを取得(Size プロパティ) FileSystemO …
-
-
FileSystemObject:ドライブを取得する(GetDrive メソッド)
ドライブを取得する(GetDrive メソッド) FileSystemObjec …
-
-
FileSystemObject:8.3形式のファイル名(フォルダ名)またはパスを取得(ShortPath, ShortName)
8.3形式のファイル名(フォルダ名)またはパスを取得(ShortPath, Sh …
-
-
FileSystemObject:ファイルやフォルダまたはドライブのパスを取得(Path プロパティ)
ファイルやフォルダまたはドライブのパスを取得(Path プロパティ) FileS …
-
-
FileSystemObject:フォルダ内のすべてのファイルを取得(Files プロパティ)
フォルダ内のすべてのファイルを取得(Files プロパティ) フォルダ内のすべて …
-
-
FileSystemObject:フルパスからファイル名、パスを取得する(GetFileName、GetParentFolderName)
フルパスからファイル名やパスを取得する FileSystemObject(FSO …
-
-
FileSystemObject:ファイルの存在確認(FileExists メソッド)
ファイルの存在確認(FileExists メソッド) FileSystemObj …
-
-
FileSystemObject:フォルダやファイルをコピー(Copy メソッド)
フォルダやファイルをコピー(Copy メソッド) FileSystemObjec …