Tester la presence d'un dossier

Version imprimable

19/03/2008, 11h18
tomy7

Tester la presence d'un dossier

Bonjour,
Je vais creer des dossiers en VBA mais seulement si ceux-ci n existe pas donc mon idee est de tester la presence du dossier mais je ne connais pas le code ?

Merci
Tom
19/03/2008, 11h38
ucfoutu

Bonjour,

Utilise simplement la fonction Dir avec l'attribut 16 (ou la constante VBDirectory)

Tu as un exemple dans ton aide en ligne (sur ta machine) et également des exemples dans des discussions encore très récentes.

EDIT : je te signale également la possibilité d'utiliser la fonction SHCreateDirectoryEx de la Librairie Shell32 de l'Api de Windows (c'est ce que je préfère personnellement utiliser) .

Cette fonction en en effet, elle, capable de ne créer un répertoire QUE S'IL N'EXISTE PAS (et le tout en silence).
19/03/2008, 11h53
tomy7

merci beaucoup Ucfoutu surtout pour l Edit qui m interesse beaucoup...
19/03/2008, 12h14
tomy7

Ucfoutu :

Est ce que tu peux poster un exemple d utilisation de la fonction:

SHCreateDirectoryEx

J'essaye de m'aider du FAQ sur les API mais je dois pas developper le bon code je pense.

Merci
Tom
19/03/2008, 13h05
SilkyRoad

bonjour

Comment vérifier si un dossier existe ?

bonne journée
michel
19/03/2008, 13h42
ucfoutu
Citation:

Envoyé par tomy7

Ucfoutu :

Est ce que tu peux poster un exemple d utilisation de la fonction:

SHCreateDirectoryEx

J'essaye de m'aider du FAQ sur les API mais je dois pas developper le bon code je pense.

Merci
Tom

Oui ?

regarde alors la réponse N° 6 donnée ici :

http://www.developpez.net/forums/sho...ateDirectoryEx

Et analyse-la, puis adapte
Et oublie donc cette partie, qui n'est là que pour "montrer" :
Code:

1 2 3 4 5 If Dir(fichier, 0) = "" Then 'ici tes instructions de sauvegarde Else MsgBox "le fichier " & fichier & " existe déjà !" End If
Saute-la donc (elle ne sert à rien dan ton cas...)...:lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub commandButton1_click()
Dim i As Integer
    Dim Directory1, Directory2, Directory3, Directory4, Directory5, Directory6 As String
    Dim CheckCreate As Long
 
 
    Directory1 = "D:\Documents and Settings\My Documents\structure"
    Directory2 = "D:\Documents and Settings\My Documents\shared"
    Directory3 = "D:\Documents and Settings\My Documents\structure\template A"
    Directory4 = "D:\Documents and Settings\My Documents\structure\template B"
    Directory5 = "D:\Documents and Settings\My Documents\structure\template C"
    Directory6 = "D:\Documents and Settings\My Documents\structure\template D"
 
 
    CheckCreate = SHCreateDirectoryEx(0&, Directory1, 0&)
    CheckCreate = SHCreateDirectoryEx(0&, Directory2, 0&)
    CheckCreate = SHCreateDirectoryEx(0&, Directory3, 0&)
    CheckCreate = SHCreateDirectoryEx(0&, Directory4, 0&)
    CheckCreate = SHCreateDirectoryEx(0&, Directory5, 0&)
    CheckCreate = SHCreateDirectoryEx(0&, Directory6, 0&)
 
    UserForm1.Show
End Sub

ceci fonctionne tres bien mais j ai voulu le simplifier avec une boucle For Next

Dim i as integer
For i = 1 to 6

Code:

1
2
3
4
5
6
7
8
9
Directory1 = "D:\Documents and Settings\My Documents\structure"
    Directory2 = "D:\Documents and Settings\My Documents\shared"
    Directory3 = "D:\Documents and Settings\My Documents\structure\template A"
    Directory4 = "D:\Documents and Settings\My Documents\structure\template B"
    Directory5 = "D:\Documents and Settings\My Documents\structure\template C"
    Directory6 = "D:\Documents and Settings\My Documents\structure\template D"
 
 
CheckCreate = SHCreateDirectoryEx(0&, Directory& i, 0&)

j ai aussi essaye
mais je peux pas declarer Directory 1
car des que je fais Dim Directory 1 as string => bug sur le 1

Code:

1
2
3
4
5
6
7
Directory 1 = "D:\Documents and Settings\My Documents\structure"
    Directory 2 = "D:\Documents and Settings\My Documents\shared"
    Directory 3 = "D:\Documents and Settings\My Documents\structure\template A"
    Directory 4 = "D:\Documents and Settings\My Documents\structure\template B"
    Directory 5 = "D:\Documents and Settings\My Documents\structure\template C"
    Directory 6 = "D:\Documents and Settings\My Documents\structure\template D"
CheckCreate = SHCreateDirectoryEx(0&, Directory & i, 0&)[/

une idee pour simplifier ou sinon je reste comme ca , enfin c est pour m instruire aussi que je demande cela.

merci

Ben alors, tomY ?

Je t'avais expliqué, non ? (il crée et crée en silence, en plus)

Essaye et tu vas voir la puissance de cette fonction :
Code:

1 2 3 4 5 6 7 Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _ (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long Private Sub Command1_Click() repertoire = "D:\repA\repB\repC" SHCreateDirectoryEx 0&, repertoire, 0& End Sub
Puis ouvre ton explorateur et constate...:lol:

Et si tu relances, il ne ne plante pas (il ne crée que ce qui n'est pas déjà créé) ...

Essaye et tu vas voir ...