an another way to do it !
'----------------------------------
Sub test()
Dim Pathway As String, Commande As String
Pathway = "\ShareDrive\" & zone & _
"\" & Year(Date) & "\" & Month(Date) & _
"\" & Format(Date, "dd-mmm-yy")
Commande = Environ("comspec") & " /c mkdir " & Pathway
Shell Commande, 0
End Sub
'----------------------------------




"Heera" a écrit dans le message de groupe de discussion :
...
Hi All,

I have created a macro and it generates a file from the data base and
it saves it on a particular location.

Now my problem is I want to save the files in the folders as per day.
I want a macro which should create a folder as I have mentioned below
automatically.

Zone (Zone will be available in the database.)
Year (If folder for year is not available it should generate
it automatically.)
Month (If folder for Month is not available it should
generate it automatically.)
Day (If folder for Day is not available it should
generate it automatically.)

File name will be combination of two strings and the user name.

For Ex: One file is generated with the name of TRS-BU-Jack.Smit.xls
on 13-Aug-09.
The above mentioned file should get generated in the folder of \
\ShareDrive\South Zone\2009\Aug\13-Aug-09\TRS-BU-Jack.Smit.xls

Regards
Heera Chavan