How to check if a folder already exists ...

[Rodie]

Hi all

I would like to create a new folder, but only if it does not already exist.
Here is my code which does not work ...

Dim New_folder_name As String 
New_folder_name = ThisWorkbook.Path & "\MyFolder" 
Dim fso As New FileSystemObject 
If Not fso.FolderExists(New_folder_name) Then 
  MkDir New_folder_name 
Else 
  MsgBox " The folder already exists. " 
End If

I found the line with FileSystemObject on the Internet but it does not work ...

Thanks in advance ...
Rody

 

[PHV]

it does not work
Any chance you may be more specific on the the issue ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[glalsop]

Did you add a reference to the Microsoft Scripting Runtime Library?

-Gary

 

[grrr72]

Rody,

Have a look here:

http://www.tek-tips.com/faqs.cfm?fid=4116

Regards,

Nic