Hello
Thanks for the solution proposed, they solved my problem, it was wery nice
from you all.

one more question please

Is there a nacro that checks how many drivers ( a:\ , C:\ , D:\ ......)
are installed in the pc?
Thanks again a lot
Francesco

"Gizmo63" wrote:

Hi Francesco,
delete the text in your macro from 'create a folder' to 'L1' and add in:
Dim answer
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
answer = fs.folderexists("[your path to folder being checked for]")
if answer = FALSE then fs.createfolder("[your path to folder you want to
create]")

this checks if your folder exists and if not creates it

HTH
Giz



"Francesco" wrote:

I am using excel 2003 and WindowsXp Professional
_______

I prepared a macro to creade a folder and a subfolder but I do not know How
to complete it
What I wrote is:

Sub Auto_Open()
Dim MyPath as String
Dim MyCell As String
Dim Name AS String

' puts the current in E1 ( ex. 10\04\2006)
Cells(1,5) = (Date)

' Inputs year 2006 of cell E1 in D5
WorkSheets("output").Range ("D5").Value = "=Year(E1)"

' MyCell takes the value of D5
MyCell = Sheets("output").Cells(5,4).Value

' Create a folder
On Error GoTo L1
MyPath = CurDir & "\"
MKDir MyPath & "InvoicingPrg"
L1:

'Note: Up to here the Macro works fine and creates the folder in C:\ named
"InvoicingPrg" and no errors occur even if the folder exists already.

What I need is to finf out if within the folder "C:\InvoicingPrg" exists a
foder named
"Invoice2006" ( Name = "invoice" & MyCell ), if yes exit the sub otherwise
creats the folder "Invoice2006".

I do not now how to do this second part provided, I hope, that the first
part of the Macro is correct.

Thankyou all
Francesco