Office TANAKA - FileSystemObject[FolderExistsメソッド]

【書式】

FileSystemObject.FolderExists(folderspec)

フォルダが存在するかどうか調べます。存在する場合はTrueを返します。

引数folderspecには存在を調べるフォルダ名を指定します。相対パスを指定することも可能です。相対パスでは、「.」がカレントフォルダを示し、「..」はカレントフォルダの親フォルダを表します。たとえば、カレントフォルダが「C:\Work\Job」だった場合、「.\Sub」は「C:\Work\Job\Sub」を表し、「..\Sub」は「C:\Work\Sub」を表します。

Sub test11()
    ''Subフォルダが存在するかどうか調べます
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists("..\Sub") Then
        MsgBox "Subフォルダが存在します"
    Else
        MsgBox "Subフォルダは存在しません"
    End If
    Set FSO = Nothing
End Sub

FileSystemObjectオブジェクト - FolderExistsメソッド