Snasui Excel Forum

Code: Select all

Option Explicit
Function FolderExist(Path As String) As Boolean
    On Error Resume Next
    If Not Dir(Path, vbDirectory) = vbNullString Then
        FolderExist = True
    End If
    On Error GoTo 0
End Function

Sub TestFolder()
    If FolderExist("D:\Program\Master\File") Then
        ChDir "D:\Program\Master\File"
        ThisWorkbook.SaveAs ("Test.xls") 'Save file name as "Test"
    Else
    On Error Resume Next
        MkDir "D:\Program\"
        MkDir "D:\Program\Master"
        MkDir "D:\Program\Master\File"
        ChDir "D:\Program\Master\File"
        ThisWorkbook.SaveAs ("Test.xls") 'Save file name as "Test"
    End If
End Sub

Code: Select all

Option Explicit

Function FolderExist(Path As String) As Boolean
    On Error Resume Next
    If Not Dir(Path, vbDirectory) = vbNullString Then
        FolderExist = True
    End If
    On Error GoTo 0
End Function

Sub TestFolder()
    If FolderExist("D:\Program\Master\File") Then
        ChDir "D:\Program\Master\File"
        ThisWorkbook.SaveAs ("Test.xls") 'Save file name as "Test"
    Else
        MkDir "D:\Program\Master\File"
        ChDir "D:\Program\Master\File"
        ThisWorkbook.SaveAs ("Test.xls") 'Save file name as "Test"
    End If
End Sub