Macro - Create new folder and save file into it

[f_nnell]

Hi, i need a macro that will create a new folder in the users
"my documents" called "BP Upload Tool" and then save the file that that they are working on (the one with the button) to that file with using the the name in cell "F20"

Your help will be greatly appreciated. i managed to get it to save with the file name i want but can not work out how to create the new folder and then save it.

 

[JackDanIce]

Welcome to the board.

Try the following:
How to change the active station:

ChDrive "F" ' changes to the F-station</PRE>How to change the active folder:

ChDir "F:\My Documents\Private"</PRE>
If you don't specify the station, Excel uses the active station. If you don't specify the folder, Excel uses the active folder. How to create a new folder:
MkDir "NewPrivateFolder" ' creates a new folder in the active folderMkDir "F:\My Documents\NewPrivateFolder"</PRE>
</PRE>
Taken from:</PRE>
http://www.exceltip.com/st/Basic_file_and_folder_examples_using_VBA_in_Microsoft_Excel/443.html</PRE>
</PRE></PRE>

 

[f_nnell]

this is the text i have

Public Sub SaveAsA1()
ThisFile = Range("F20").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub



where would your txt go?

 

[JackDanIce]

Public Sub SaveAsA1()
ThisFile = Range("F20").Value
MkDir "C:/NewFolder"
ChrDir "C:/NewFolder"
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

You may not need the ChrDir part or play around with this as I've not tested it.

 

[f_nnell]

doesn't seem to work, i am new to VB and don't know how to correct it

 

[roscoe]

I think the slashes are reversed and chrdir shoud be chdir...try this

MkDir "C:\NewFolder"
ChDir "C:\NewFolder"