create a folder using a macro

[Guest]

Hello!

Part of a larger macro contains the following:

ChDir _
"C:\Documents and Settings\My Documents\Flashes\New"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\My Documents\Flashes\New\Data Total.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

However, I actually want the macro to create a new folder, name it
something, and then proceed to save the workbook in the folder as Data Total.
Is it possible to do that? As it is right now, I have to create a folder
called "New" before running the macro, which isn't that hard, but it is a
small step in a series of steps that I always forget.

Any help would be apprieciated!

 

[paul.robinson]

Hi
This code creates a folder as a subfolder of the one which contains the
active workbook. You could change this to some other path.
It first checks if the folder already exists. If it doesn't then the
folder is created. The DoEvents bit is just there to make sure the
folder exists before the next bit of VBA code runs.

regards
Paul

MyDirectory = ActiveWorkbook.Path & "\" & "Test Directory"
DirTest = Dir$(MyDirectory, vbDirectory)
If DirTest = "" Then
MkDir MyDirectory
DoEvents 'just make sure it is there
End If
ChDir MyDirectory

 

[Guest]

Thank you! That helps so much in this macro and several others I use.
Beautiful.

 

[Guest]

Hi,
Can you please let me know how to create a new folder with today's date.
I want to save the result of my macro in the folder. For example if i run the
macro in file abc.xls today in c:\macro folder, i want the result of that
macro to be saved in c:\macro\09292005\ folder with time stamp appended to
the file name (abc_10:30.xls). Is this possible. Please help me.

Thanks,
Mahesh

 

[Guest]

Just what I needed! Thanks!

Hi
This code creates a folder as a subfolder of the one which contains the
active workbook. You could change this to some other path.
It first checks if the folder already exists. If it doesn't then the
folder is created. The DoEvents bit is just there to make sure the
folder exists before the next bit of VBA code runs.

regards
Paul

MyDirectory = ActiveWorkbook.Path & "\" & "Test Directory"
DirTest = Dir$(MyDirectory, vbDirectory)
If DirTest = "" Then
MkDir MyDirectory
DoEvents 'just make sure it is there
End If
ChDir MyDirectory

 

[Maperalia]

Thanks Paul. This code is really helpfull.

Maperalia