Checking to see if Folder exists

  • Thread starter Thread starter Dan
  • Start date Start date
D

Dan

In my macro I need to check to see if a folder exists b/4 I create one. What
command should I use? Does anyone have some quick code to check if a folder
exists and if not, create it?

Dan
 
Dan,

Ron posted this on the 17th...

Sub MakeDirectory()
Dim Dirname As String
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dirname = "C:\Data"
If Not fs.FolderExists(Dirname) Then
fs.CreateFolder Dirname
' your code
Else
' your code
End If
End Sub
 
On error resume next
mkdir "C:\test"
on error goto 0

(just ignore the error if it's already there.)
 
Back
Top