フォルダの存在確認（FolderExists メソッド）
FileSystemObject（FSO）を使用して、引数で指定したフォルダが存在するかどうかを確認します。FileSystemObject（FSO）のインスタンスを生成する方法は、ファイルシステムオブジェクト（FileSystemObject）の使い方 を参照してください。
【書式】
object.FolderExists ( folderspec )
引数・戻り値
- object ・・・ FileSystemObject オブジェクトを指定します。
- folderspec ・・・ 対象となるフォルダのパスとフォルダ名を文字列で指定します。相対パス（. はカレントフォルダ、.. は親フォルダを示します）を指定することも可能です。
- 戻り値 ・・・ folderspec で指定したフォルダが存在する場合、True、存在しない場合は、False。
FolderExists メソッド 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub Sample_FSO_FolderExists() 'フォルダの存在確認 Dim fso As New FileSystemObject Dim TargetFolder As String TargetFolder = "C:\Documents\data2\ccc" If fso.FolderExists(TargetFolder) = True Then MsgBox TargetFolder & "フォルダは存在してます" Else MsgBox TargetFolder & "は、見つかりませんでした" End If End Sub |
実行結果
実行前の C:\Documents\data2 フォルダの内容
サンプルVBAソースを実行
