Here is code I've been using to check if exist and create folder if not

Dim FsO As Object
Dim FolD As String

FolD = "your\folder\path\goes\here"
Set FsO = CreateObject("Scripting.FileSystemObject")
If Not FsO.FolderExists(FolD) Then FsO.CreateFolder (FolD)




"Bob" wrote in message
...
What coding can I use or what ways can I use so that each workbooks path
is
unique, meaning that not one workbook path is the same e.g.
C:\220210\220210.xls, C:\220211\220211.xls...

Thanks
Bob