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

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

DoooWhat wrote:
> 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

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,
--
Farhad Hodjat


"DoooWhat" wrote:

> 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
>
>

Thanks so much! That worked perfectly.

Kevin

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

Kevin

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

--
HTH :>)
Dana DeLouis


"DoooWhat" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>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
>