Make directory

[rakupareek]

Sub pdf()
    Application.ScreenUpdating = False
    Dim pdf_range As Range
    Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Estimate")
    Set pdf_range = ws.Range("B5:J34")
  
    Dim fileName As String
    fileName = Left(Range("B7").Value, 50) & " - " & Left(Range("J6").Value, 10)
    Dim filePath As String
    filePath = "D:\Estimate\" & fileName & ".pdf"
  
    On Error Resume Next
    MkDir "D:\Estimate\"
    On Error GoTo 0
  
    On Error Resume Next
    pdf_range.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath, OpenAfterPublish:=False
  
    If Err.Number <> 0 Then
        MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Error Exporting PDF"
    Else
        MsgBox "PDF File Generated Successfully!", , "Jagdamba Jewellers"
    End If
  
    Application.ScreenUpdating = True
End Sub

Hi Every one,
I have this code in which directory make in D drive named Estimate in which directly file downloaded.
I let u know that cell J6 contain date
Now I want to make directory in D drive Estimate\Year\month and after that file downloaded in month folder.
Please help me to amend this code.

 

[rakupareek]

If there are date in J6 is 16-10-2023 then directory make D\Estimate\2023\Oct

 

[Joe4]

I think this should do what you want:

filepath = "D:\Estimate\" & Format(Range("J6"), "yyyy") & "\" & Format(Range("J6"), "mmm") & "\"

 

[rakupareek]

1004 error showing at error massage

 

[Joe4]

Sorry, you need to make the directory first. Similar methodology to what I gave you.

I think you may need to first create the year directory, and then the month directory, i.e.

MkDir "D:\Estimate\" & Format(Range("J6"), "yyyy") & "\" 
MkDir "D:\Estimate\" & Format(Range("J6"), "yyyy") & "\" & Format(Range("J6"), "mmm") & "\"

 

[rakupareek]

Yes I want this

 

[Joe4]

You are welcome.
Glad I was able to help!