[Toutes versions] CREATION DE DOSSIER : FSO ou FOLDER ? [Résolu]

[FtF Nemesis]

Bonjour,
Je souhaite créer des dossier depuis vba, je me suis renseigné et j'ai trouvé deux méthodes, par FSO et par l'objet FOLDER. Je me demande quelle est la meilleur méthode pour créer des dossier sachant que les deux fonctionnent. Voici les deux méthodes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub MethodeFOLDER
 
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Drive
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
 
'Instanciation du disque
Set oDrv = oFSO.GetDrive("C")
'Crée le repertoire
oDrv.RootFolder.SubFolders.Add ("SIMON")
 
fin:
    Exit Sub
 
err:
        Select Case err.Number
            Case 5: MsgBox "Le disque n'est pas disponible"
            Case 58: MsgBox "Le dossier existe déjà"
            Case 76: MsgBox "Chemin incorrect"
            Case Else: MsgBox "Erreur inconnue"
        End Select
 
    Resume fin
 
end sub
 
'**********************************************
 
Public sub MethodeFSO
 
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Drive
Dim oFld As Folder
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Crée le repertoire
Set oFld = oFSO.CreateFolder("C:\HADRIEN ")
 
fin:
    Exit Sub
 
err:
        Select Case err.Number
            Case 58: MsgBox "Le dossier existe déjà"
            Case 76: MsgBox "Chemin incorrect"
            Case 13: MsgBox "Le dossier a été créé"
            Case Else: MsgBox "Erreur inconnue"
        End Select
 
    Resume fin
 
End Sub

Merci d'avance pour vos conseils.

Hadrien

[loufab]

Bonjour,

Il y a aussi Mkdir qui a l'avantage d'être une commande native.

A priori toutes se valent.

Cordialement,

[FtF Nemesis]

Merci, je vais me renseigner sur Mkdir