Create Folder

[K]

Hi all, I want macro which should create folder with name "2009" in
"C:\My Documents\Years" and if there is already folder with name
"2009" in "C:\My Documents\Years" then macro should do nothing.
Please can any friend can help

 

[Bob Phillips]

On Error Resume Next
MkDir "C:\My Documents\Years\2009"
On Error Goto 0

 

[K]

On Error Resume Next
MkDir "C:\My Documents\Years\2009"
On Error Goto 0

--
__________________________________
HTH

Bob






- Show quoted text -

thanks lot bob

 

[Rick Rothstein]

I guess this could also be done without the error checking... I think this
will work

DirName = "C:\My Documents\Years\2009"
If Dir(DirName, vbDirectory) = "" Then MkDir DirName

 

[K]

I guess this could also be done without the error checking... I think this
will work

DirName = "C:\My Documents\Years\2009"
If Dir(DirName, vbDirectory) = "" Then MkDir DirName

--
Rick (MVP - Excel)






- Show quoted text -

Thanks Rick its brilliant