Ajoute un nouvel élément Folder à une collection Folders.
object
.Add
(folderName)
object
Correspond toujours au nom d'une collection Folders.
folderName
Le nom du nouveau Folder ajouté.
L'exemple ci-dessous illustre l'utilisation de la méthode Add pour ajouter un nouveau dossier :
Sub AddNewFolder(path, folderName)
Dim fso, f, fc, nf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fc = f.SubFolders
If folderName <> "" Then
Set nf = fc.Add(folderName)
Else
Set nf = fc.Add("Nouveau dossier")
End If
End Sub
Une erreur se produit si folderName existe déjà.
Application: Folders, collection