【判斷資料夾是否存在，若資料夾不存在，則新增】
Dim fs as Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(資料夾完整路徑) = False Then
'資料夾不存在
fs.CreateFolder (資料夾完整路徑)
End If
Set fs = Nothing
記得要釋放fs
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※