VBA搜索文件夾或創建

Question

下午好一切， 我使用我的電子表格下面的代碼在一個特定的文件夾中的文件保存爲特定的格式：

Const csPath As String = "C:\Stationery Orders\" 
MyName = ActiveWorkbook.Name 
ActiveWorkbook.SaveAs Filename:=csPath & Sheets("Stationery").Cells(1, 1) & Format(CStr(Now), "ddmmyyyy_hhmm") & " " & MyName & ".xlsm", FileFormat:=52 

我的問題是，我找不到創建此文件夾的方法C：\ Stationery Orders \如果該文件夾不存在，並在用戶桌面上粘貼快捷方式。這甚至有可能嗎？有任何想法嗎？

親切的問候

Answer 1

在做之前做個檢查SaveAs。喜歡的東西，

If Dir(csPath, vbDirectory) = "" Then MkDir csPath 

然後做SaveAs

Answer 2

試試這個。它會檢查文件夾是否存在，如果不存在則創建它。

Sub MyCuteSub() 
    Dim FSO 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    If Not FSO.FolderExists("C:\temp\temptemptemp") Then 
     FSO.CreateFolder ("C:\temp\temptemptemp") 
    End If 
End Sub