Creating a folder on SaveAs
Like this
If Len(Dir("C:\Store Returns\Contacts\StoreNo", vbDirectory)) 0 Then
MsgBox "Exists"
Else
MsgBox "Not There"
'do things
End If
Mike
"leerem" wrote:
Hi Mike, that seems so simple MkDir..
How could I adjust this so that it only performs this task if the file
doesn't exist or does it not matter. i wouldn't want it to keep creating
several file with the same name.
"Mike H" wrote:
Hi,
I think your saying that
D:\Store Returns\Contacts
already exists so this will create the directory you want
MkDir "D:\Store Returns\Contacts\StoreNo"
Create it and then do your save.
Mike
"leerem" wrote:
Hi All, Your assistance is required.
How would I progmatically save an excel file to a folder that doesn't yet
exist. I'm writing an attachment to a code that saves a straightforward file,
however when the user saves a new file (eg. a new store has opened) I need
to identify that store by their Store No. with the related files stored
within.
So I need to save the file as for example:
ActiveWorkbook.SaveAs Filename:="D:\Store Returns\Contacts\StoreNo\" &
FileNameSave, FileFormat:=xlNormal
With StoreNo being the New Folder that needs to be created and FileNameSave
as the File Name.
In short how do you create a folder with code.
Any assistance would be much appreciated.
Regards
Lee
|