Saving a file to a newly created folder

[knighttrader]

Hi

I have a macro that makes a new folder (on a MAC) each day based on the days date.

MkDir "/Users/Steve/Dropbox/Files/BA " & Format(Today(), "yyyy (mm) mmm dd ")

This creates a new folder in a folder called Files e.g. Files/BA 2021 (02) Feb 19

During the day a workbook is periodically saved (on a PC) using the days date and current time

ActiveWorkbook.SaveAs ("C:\Users\Administrator\Dropbox\Files\BA " & Format(Now(), "YYYY (MM) MMM DD hhmm ") & ".xlsm")

This creates a a new file in the folder called Files. e.g. Files/BA 2021 (2) Feb 19 1348


Question. How do I write the SaveAs file path so that the new file is saved in a folder based on the days date "BA " & Format(Today(), "yyyy (mm) mmm dd ")

E.g. Files\ BA 2021 (02) Feb 19 \BA 2021 (2) Feb 19 1348

 

[John_w]

Question. How do I write the SaveAs file path so that the new file is saved in a folder based on the days date "BA " & Format(Today(), "yyyy (mm) mmm dd ")

E.g. Files\ BA 2021 (02) Feb 19 \BA 2021 (2) Feb 19 1348

Try this:

    Dim folder As String
    folder = "C:\Users\Administrator\Dropbox\Files\BA " & Format(Date, "yyyy (mm) mmm dd ") & "\"
    If Dir(folder, vbDirectory) = vbNullString Then MkDir folder
    ActiveWorkbook.SaveAs folder & Format(Now(), "YYYY (MM) MMM DD hhmm ") & ".xlsm"

 

[knighttrader]

Try this:

    Dim folder As String
    folder = "C:\Users\Administrator\Dropbox\Files\BA " & Format(Date, "yyyy (mm) mmm dd ") & "\"
    If Dir(folder, vbDirectory) = vbNullString Then MkDir folder
    ActiveWorkbook.SaveAs folder & Format(Now(), "YYYY (MM) MMM DD hhmm ") & ".xlsm"

Many thanks John