بررسی وجود یا عدم وجود یک فولدر در مسیر خاص توسط اکسل

از کدهای زیر استفاده نمائید

    FolderPath = "C:\Users\Ron\test"
    If Right(FolderPath, 1) <> "\" Then
        FolderPath = FolderPath & "\"
    End If
    
    If Dir(FolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist"
    Else
        MsgBox "Folder doesn't exist"
    End If

نقل شده از

http://www.rondebruin.nl/win/s9/win003.htm