Create Folder Using VBA

D

DoooWhat

I would like to create a folder using the values in a specific cell on
a worksheet. Let's say, for instance, that the value of A1 is: C:
\Reports\2007-09-18

The 'Reports' directory MAY OR MAY NOT already have a '2007-09-18'
folder. I would like the code to be conditional, in that it will
create the folder if it does not exist, otherwise don't do anything.
Any help is much appreciated.

Thanks.

Kevin
 
J

JW

One way:
Sub foo()
Dim d As String
d = Range("A1").Text
If Dir(d, vbDirectory) <> "" Then
MsgBox d & " already exists", , "Error"
Else
MkDir d
End If
End Sub
 
F

Farhad

Hi,

Try this:

Dim Fldr As Scripting.FileSystemObject
Set Fldr = New Scripting.FileSystemObject
If Fldr.FolderExists("C:\Reports\2007-09-18") Then
Else
Fldr.CreateFolder "C:\Reports\2007-09-18"
End If

make sure you have referred to MicroSoft Scripting Runtime from
Tools>References

Thanks,
 
D

DoooWhat

JW's worked, so I didn't attempt the other solution. I appreciate
everybody's input.

Kevin
 
D

Dana DeLouis

Just another option. If it exists, it will skip MkDir.

Sub Demo()
Const d As String = "C:\Reports\2007-09-18\"
On Error Resume Next
MkDir d
End Sub
 
Top