[發問] 另存新檔時，若沒此資料夾。用vba建立資料夾，可指定路徑嗎?

幼稚園飛天豬

以下是我的代碼，但如果2這個資料夾不在時，如何讓他自動建立2這個資料夾然後存檔?
但我使用的檔案為唯讀檔，和我要建立2的資料夾位置不同。
不知有辦法嗎

Sub 另存csv不會改到檔名()
Application.DisplayAlerts = False
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ChDir "\\172.168.5.4\0825\2"   '建立在共用網頁碟碟
    ActiveWorkbook.SaveAs Filename:= _
        "\\172.168.5.4\0825\2\Book2.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub