フォルダの存在をチェックする

サンプルソース

' ファイル操作オブジェクトを生成
Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FolderExists("c:\windows") Then
    Cells(1,1) = "フォルダが存在します"
End If

' ファイル操作オブジェクトを解放
Set objFso = Nothing

解説

Scripting.FileSystemObjectはファイル操作をするオブジェクトです。

FolderExistsで指定されたパスのフォルダの存在をチェックします。
指定されたフォルダが存在する場合は、真 (True) を返します。存在しない場合は、偽 (False) を返します。




ファイル操作



Excel VBA講座
VBScriptサンプル集

日付操作

文字列操作
     ...すべてのサンプルをみる



関連リンク
 セル、シート、ブックの参照や操作、
 書式設定に関するサンプル集。
Copyright (C) ExcelVBA@Workshop All rights reserved.