
FileSystemObjectのFolderExistsメソッドについてです。
FolderExistsメソッド
概要
指定したフォルダーの存在を判定してBool値が返ります。
構文
FileSystemObject.FolderExists(folderspec)
FolderExistsメソッドの引数
引 数 | 必須 / 省略可 | 詳 細 |
フォルダーパス | 必須 | ・存在するかを調べたいフォルダーパスを指定するとBool値が返ります。 True:存在する。 False:存在しない。 |
VBAサンプル
基本
フォルダー(D:\sample\test)が存在するかの判定。
1 2 3 4 5 6 7 8 | Sub フォルダーが存在するかの判定() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") '指定したフォルダーが存在するとTrueが返ります。 Debug.Print fso.FolderExists("D:\sample\test") End Sub |
【結果】
testという名前のフォルダーが存在するため、Trueがイミディエイトウィンドウに表示されます。
応用
指定フォルダーの存在をIFとFolderExistsで確認後に分岐させて処理を実行します。
1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub 応用FolderExists() Dim f As String: f = "D:\sample\test" Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'フォルダーが存在するかIF文とFolderExistsメソッドで調べる If fso.FolderExists(f) Then MsgBox "指定のフォルダが見つかりました。" Else MsgBox "指定のフォルダーが見つかりません。" End If End Sub |