Folder. NewFolder, méthode
Crée un nouveau dossier.
Syntaxe
Folder.NewFolder(
bName,
[ vOptions ]
)
Paramètres
-
bName
-
Type : BSTR
Chaîne qui spécifie le nom du nouveau dossier.
-
vOptions [ facultatif]
-
Type : variante
Cette valeur n’est pas utilisée actuellement.
Valeur de retour
Cette méthode ne retourne pas de valeur.
Notes
Notes
Toutes les méthodes ne sont pas implémentées pour tous les dossiers. Par exemple, la méthode ParseName n’est pas implémentée pour le dossier du panneau de configuration ( _ contrôles CSIDL). Si vous tentez d’appeler une méthode non implémentée, une erreur 0x800A01BD (Decimal 445) est générée.
Exemples
L’exemple suivant utilise NewFolder pour créer le nouveau dossier C : \ TestFolder. l’utilisation appropriée est indiquée pour JScript, VBScript et 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
Spécifications
| Condition requise | Valeur |
|---|---|
| Client minimal pris en charge |
Windows 2000 Professional, Windows XP [ desktop apps uniquement] |
| Serveur minimal pris en charge |
Windows 2000 Server - [Applications de bureau uniquement] |
| En-tête |
|
| MIDL |
|
| DLL |
|