iT邦幫忙

DAY 18
3

WSH研習記錄系列 第 20

WSH研習記錄--資料夾操作篇(新增資料夾)

檔案可以做新增,資料夾當然也是可以的..
今天就來看看新增資料夾--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裡面建立好程式碼
先比對是否有存在跟欲建立的資料夾相同名稱的資料夾
若沒有再行建立
若有的話,就不建立..

提供給有需要的人..


上一篇
WSH研習記錄--資料夾操作篇
下一篇
WSH研習記錄--資料夾操作篇(資料夾的複製、移動)
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言