コピペで使えるVBAのコード置き場

ディレクトリ存在確認

筆箱にVBAのカンニングペーパーを入れる係のみすくです。こんにちは。

パラメータで指定されたパスのディレクトリが存在するかを判定。

'---------------------------------------------------------------------------------------------------
'【処 理 名】ディレクトリ存在確認
'【処理概要】ディレクトリが存在しているか確認する
'【引    数】ByVal path As String
'【返 却 値】True  あり
'            False なし
'---------------------------------------------------------------------------------------------------
Public Function isDirectory(ByVal path As String) As Boolean
    isDirectory = False
    If Dir(path, vbDirectory) <> "" Then
        isDirectory = True
    End If
End Function

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です