Méthode Folder.NewFolder

Article
06/13/2023

Crée un dossier.

Syntaxe

Folder.NewFolder(
  bName,
  [ vOptions ]
)

Paramètres

bName

Type : BSTR

Chaîne qui spécifie le nom du nouveau dossier.

vOptions [facultatif]

Type : Variant

Cette valeur n’est pas utilisée actuellement.

Valeur retournée

Cette méthode ne retourne pas de valeur.

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 Panneau de configuration (CSIDL_CONTROLS). Si vous tentez d’appeler une méthode non implémentée, une erreur 0x800A01BD (décimale 445) est générée.

Exemples

L’exemple suivant utilise NewFolder pour créer le dossier C:\TestFolder. Une utilisation correcte 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 Professionnel, Windows XP [applications de bureau uniquement]
Serveur minimal pris en charge	Windows 2000 Server [applications de bureau uniquement]
En-tête	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (version 4.71 ou ultérieure)

Partager via