create a folder using a macro
Just what I needed! Thanks!
" wrote:
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
redb wrote:
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!
|