Creating a file in a newly created folder.

Embarrassingly, I cannot see it?

shg and JBeaucaire, your help is apprecaited. I am still recieving an error "Save As Method Failed." , in the Macro 1. I put the DIM declarations Outside of the CreateFolders MACRO, so that they may be used in subsequent sub macros. Please see the code below. Your help is appreciated.

Option Explicit

Dim fDate  As String
Dim fPath  As String
Dim Fldr    As String
Dim ErrBuf As String

_________________________________

Sub CreateFolder()

    fDate = Application.InputBox("Enter a date in the format shown:", "Date to add...", Format(Date, "MM_DD_YYYY"))
        If fDate = "False" Then Exit Sub

    fPath = "L:\"

    On Error GoTo ErrorHandler
        Fldr = fPath & fDate & "_157"
            MkDir Fldr
        Fldr = fPath & fDate & "_157\" & "157_Reports"
            MkDir Fldr
        Fldr = fPath & fDate & "_157\" & "Support_Summaries"
            MkDir Fldr
        Fldr = fPath & fDate & "_157\" & "105_Reports"
            MkDir Fldr
    
    If Len(ErrBuf) > 0 Then MsgBox "The following folders already existed:" & vbLf & vbLf & ErrBuf
    
    Exit Sub
    
ErrorHandler:
    ErrBuf = ErrBuf & vbLf & Fldr
    Resume Next
    
End Sub

________________________________________

Sub Summaries()

FileCopy "L:\157_Support_Summaries\CDS.xlsm", fPath & fDate & "_157\" & "Support_Summaries\CDS.xlsm"
FileCopy "L:\157_Support_Summaries\Formulas.xlsm", fPath & fDate & "_157\" & "Support_Summaries\Formulas.xlsm"
FileCopy "L:\157_Support_Summaries\Illiquid.xlsm", fPath & fDate & "_157\" & "Support_Summaries\Illiquid.xlsm"
FileCopy "L:\157_Support_Summaries\Q.xlsm", fPath & fDate & "_157\" & "Support_Summaries\Q.xlsm"
FileCopy "L:\157_Support_Summaries\Rules.xlsm", fPath & fDate & "_157\" & "Support_Summaries\Rules.xlsm"
FileCopy "L:\157_Support_Summaries\Special_Trades.xlsm", fPath & fDate & "_157\" & "Support_Summaries\Special_Trades.xlsm"
FileCopy "L:\157_Support_Summaries\QRA_Bonds_20091231.xlsx", fPath & fDate & "_157\" & "Support_Summaries\QRA_Bonds_20091231.xlsx"

End Sub

__________________________________________

Sub Macro1()
    Const sPath1 As String = "fPath & fDate & 157\ & 105_Reports"
    Const sFileOut1 As String = "105_version1.xlsm"
    
    fPath = "L:\"
    
    Workbooks.Add
    With ActiveSheet
        .Name = fDate & "105_v1"
        .Parent.SaveAs Filename:=sPath1 & sFileOut1, _
                       FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                       CreateBackup:=False
        .Parent.Close
    End With
    
End Sub

__________________________________________

Sub Main()

    Call CreateFolder
    Call Summaries
    Call Macro1
        
End Sub

Thanks - I visited the website, and began using the Immediate window to see if the path is correct. I typed in

? fPath & fDate & _157\105_Reports\

and recieved an invalid character error. The underscore preceeding the 157 is not the source as its removal does not eliminate the error. Any suggestions?

At the moment of error we have:

fPath = "L:\"

fDate = "12_31_2009" ; which is the date that was entered in the InputBox during the "run", so it is correct.

No, I am not using "/" in the dates.

I am sorry I an not getting it. I am now being told a "constant expression is required"

Sub OneZeroFive()
    
    Const sPath1    As String = fPath & fDate & "_157\105_Reports\"
    Const sFileOut1 As String = "105_version1.xlsm"
    
    fPath = "L:\"
    
    Workbooks.Add
    With ActiveSheet
        .Name = fDate & "_105_v1"
        .Parent.SaveAs Filename:=sPath1 & sFileOut1, _
                       FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                       CreateBackup:=False
        .Parent.Close
    End With
    
End Sub

I am still wokring on this error. I using the immediate window to debug:

? fPath & fDate & "_157\105_Reports\"
L:\05_31_2010_157\105_Reports\

It appears to be the correct path. However in running the code I recieve a "Constant Expression Required" error. Are there problems with how I am declaring variables? fDate is not a function. So the value should be the same throughout each macro, likewise with fPath.

I got it. Thank you. FYI - I am learning a tremendous amount on this forum.

Sub OneZeroFive1()
'The OneZeroFive1 macro creates a file called 105. It replaces Qiam's previos "105xls_version#", file that was used
'in the 157 disclosure process.
    
    Dim sPath1      As String
    Const sFileOut1 As String = "105_version1.xlsm"
    
    sPath1 = fPath & fDate & "_157\105_Reports\"
       
    Workbooks.Add
    With ActiveSheet
        .Name = fDate & "_105_v1"
        .Parent.SaveAs Filename:=sPath1 & sFileOut1, _
                       FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                       CreateBackup:=False
        .Parent.Close
    End With
    
End Sub