请问如何用fso在我的文档下创建一个文件夹？

Question

我想让程序在启动时，if 我的文档\abc ="" then 用fso创建abc文件夹
要求用SpecialFolders("MyDocuments")这种方法来创建，谢谢

Answer 1

NewFolderName="abc"
sFolder=GetCurrentPath()
set Fso=Server.CreateObject("Scripting.FileSystemObject")
----------------------
Set Root=Fso.GetFolder(sFolder)
Set fc=Root.SubFolders
  if not Fso.FolderExists(sFolder & "\" & NewFolderName) then fc.Add(NewFolderName)
set fc=nothing
set root=nothing
----------
或
if not Fso.FolderExists(sFolder & "\" & NewFolderName)
   Set f = fso.CreateFolder(sFolder&"\"&NewFolder) 'set f=nothing
end if
------------------------
set Fso=nothing

Answer 2

Option ExplicitPrivate Sub Command1_Click()
        Dim FSO As Object 'Scripting.FileSystemObject
        Dim cFolder As String
        Set FSO = CreateObject("Scripting.FileSystemObject")
        '创建文件夹abc
        cFolder = "C:\Documents and Settings\cjl\My Documents\abc"
        FSO.CreateFolder (cFolder)
End Sub