Folder.NewFolder 方法
建立新的資料夾。
語法
Folder.NewFolder(
bName,
[ vOptions ]
)
參數
-
bName
-
類型: BSTR
指定新資料夾名稱的字串。
-
vOptions [選擇性]
-
類型: Variant
目前不使用此值。
傳回值
這個方法不會傳回值。
備註
注意
並非所有方法都會針對所有資料夾實作。 例如,不會針對主控台資料夾實作ParseName方法 (CSIDL_CONTROLS) 。 如果您嘗試呼叫未實作的方法,就會引發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 Professional、Windows XP [僅限桌面應用程式] |
最低支援的伺服器 |
Windows 2000 Server [僅限桌面應用程式] |
標頭 |
|
Idl |
|
DLL |
|