VB如何增加一個新的資料夾(AddFolder)

Question

我是一個VB新手 想要用VB建立一個不存在的新資料夾
我用MSDN查到如下
語法: object.AddFolders folderName
AddFolders 方法的語法有如下個單元：
Object 必要引數。一個 Folders 集合物件的名稱。
FolderName 必要引數。新加入的 Folder 的名稱。
可是我不會用 不知道有沒有人可以寫給我 感謝

Answer 1

'你要的方法Private Sub Command1_Click()    Dim Fs As Object, Fd As Object        '設Fs為FileSystemObject物件    Set Fs = CreateObject("Scripting.FileSystemObject")    '若C:\Test此資料夾已存在就離開    If Fs.FolderExists("C:\Test") Then Exit Sub    '設Fd為C:\資料夾    Set Fd = Fs.GetFolder("C:\")    '新增Test資料夾    Fd.SubFolders.Add "Test"End Sub'其實不用這樣麻煩用外掛,VB本身就有函數可新增資料夾Private Sub Command2_Click()        '若C:\Test此資料夾不存在就新增Test資料夾        If Dir("C:\Test", vbDirectory) = "" Then MkDir "C:\Test"End Sub

Answer 2

如果你用FileSystemObject, 可以用以下敘述即可在"C:\"下面增加"TestFolder".

Dim strPath, strFolderName
Dim objFS, objFloder, objFC

strPath = "C:\"
strFolderName = "TestFolder"

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strPath)
Set objFC = objFolder.SubFolders

objFC.Add(strFolderName)