Here you go:

Code:
If Dir("C:\MyDir", vbDirectory) <> "" Then
'overwrite files
Else
MkDir "C:\MyDir"
End If