檔案可以做新增，資料夾當然也是可以的..
今天就來看看新增資料夾--CreateFolder方法
使用FileSystemObject物件的CreateFolder方法，就可以製作出新的資料夾
但是，若資料夾已存在，或是嘗試在沒有寫入權限的資料夾內製作新資料夾的話
會發生執行時的錯誤
現在來看個範例，看看要怎麼使用..

Option Explicit

Sub CreateFolder(Path)
	Dim FSO
	Dim FoldersArray
	Dim tempArray
	Dim i
	Dim CreateFolderPath
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Path = FSO.GetAbsolutePathName(Path)
	FoldersArray = Split(Path, "\")
	For i = 1 To UBound(FoldersArray)
		tempArray = FoldersArray
		ReDim Preserve tempArray(i)
		CreateFolderPath = Join(tempArray, "\")
		If Not FSO.FolderExists(CreateFolderPath) Then
			FSO.CreateFolder CreateFolderPath
		End If
	Next
	Set FSO = Nothing
End Sub

CreateFolder "Test1\test2"

這次我們以一個呼叫Sub的方式來執行
在Sub裡面建立好程式碼
先比對是否有存在跟欲建立的資料夾相同名稱的資料夾
若沒有再行建立
若有的話，就不建立..

提供給有需要的人..