Folder.NewFolder 方法

创建新文件夹。

语法

Folder.NewFolder(
  bName,
  [ vOptions ]
)

参数

bName

类型： BSTR

一个指定新文件夹名称的字符串。

vOptions [可选]

类型： Variant

目前不会使用此值。

返回值

此方法不返回值。

备注

注意

并非所有方法都是针对所有文件夹实现的。 例如，没有为 控制面板 文件夹 (CSIDL_CONTROLS) 实现 ParseName 方法。 如果尝试调用未实现的方法，则会引发0x800A01BD (十进制 445) 错误。

 

示例

以下示例使用 NewFolder 创建新文件夹 C：\TestFolder。 显示 JScript、VBScript 和 Visual Basic 的正确用法。

Jscript：

<script language="JScript">
    function fnFolderObjectNewFolderJ()
    {
        var objShell  = new ActiveXObject("shell.application");
        var objFolder = new Object;
        
        objFolder = objShell.NameSpace("C:\\");
        if (objFolder != null)
        {
            objFolder.NewFolder("TestFolder");
        }
    }
</script>

VBScript：

<script language="VBScript">
    function fnFolderObjectNewFolderVB()
        dim objShell
        dim objFolder
        
        set objShell = CreateObject("shell.application")
        set objFolder = objShell.NameSpace("C:\")

        if (not objFolder is nothing) then
            objFolder.NewFolder("TestFolder")
        end if

        set objFolder = nothing
        set objShell = nothing
    end function
</script>

Visual Basic：

Private Sub btnNewFolder_Click()
    Dim objShell  As Shell
    Dim objFolder As Folder

    Set objShell = New Shell
    Set objFolder = objShell.NameSpace("C:\")

    If (Not objFolder Is Nothing) Then
        objFolder.NewFolder ("TestFolder")
    End If

    Set objFolder = Nothing
    Set objShell = Nothing
End Sub

要求

要求	值
最低受支持的客户端	Windows 2000 专业版、Windows XP [仅限桌面应用]
最低受支持的服务器	Windows 2000 Server [仅限桌面应用]
标头	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (4.71 或更高版本)