directory

[TexasDan]

Guys I'm need a macro to check if a directory exits, if it does not then create it with out messages poping up.

I also need it to do this on closing of the program automaticlly.

 

[Datsmart]

Sub CheckCreateDir()
Dim myDir As String
myDir = ActiveWorkbook.Path & "\"
NewFolder = myDir & "UnKnownDir" & "\"
    If Dir(NewFolder, vbDirectory) = "" Then ' if folder does not exist then create it
        MkDir NewFolder
    End If
End Sub