Discussion :

[pendragon]

bonjour voilà je sais qu'une fonction existe pour vérifier si un fichier existe à partir de son chemin.
Là je voudrai effectuer la même démarche sauf que je veus savoir si un répertoire existe car il n'y a pas forcément de fichiers dedans
merci d'avance

[Sebounet19]

et si tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Dir(tonRepertoire & "\*.*", vbHidden) <>"" then

[SpaceFrog]

Et si le répertoire existe mais qu'il est vide ??? que te retourneras ton dir ?

[Sebounet19]

il me retourne vide aussi !

Bien vu. je cherche autre chose alors

[bhaal76]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Dim fs As Scripting.FileSystemObject
 
    Set fs = New Scripting.FileSystemObject
 
    ' test si le repertoire existe
    If Not fs.FolderExists(chemin) Then
         '  création du repertoire si besoin
         fs.CreateFolder (chemin)
    End If
 
    Set fs = Nothing

bhaal76

[pendragon]

c'est sympa ton code mais excuse moi de mon ignorance mais qu'est ce que veus dire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set fs = Nothing

?
Merci d'avance

[bhaal76]

je déclare fs comme un objet Scripting.FileSystemObject, puis je l'instancie

je dois donc le détruire quand je n'en n'ai plus besoin, d'ou le :
set fs = nothing

ps : pour utillisé l'objet "Scripting.FileSystemObject", tu doit ajouter a ton projet la référence a "Ms Scripting runtime"


bhaal76

[simpletontheweb]

autrement du bourrin qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
rep = Dir(repertoire & "\*", vbNormal Or vbHidden Or vbDirectory Or vbArchive Or vbSystem)
' j'avoue j'en fais un peu trop
 Do While rep <> ""
         If rep <> ".." Then
            If rep <> "." Then
                    ' on ne veut pas les repertoires . et ..
               If (GetAttr(repertoire & "\" & rep) And vbDirectory) = vbDirectory Then
                    ' verification que c'est bien un repertoire
 
' le traitement que tu veux faire
 
               end if
           end if
        end if
rep=dir
loop

[pendragon]

merci pour le code bhaal76 seulement je ne trouve pas le composan "Ms Scripting runtime"

[Sk8cravis]

Slt pour le composant Ms Scripting Runtime tu va dans le menu projet,
tu cliques sur references et le nom complet est :

Microsoft Scripting Runtime

Voilà !

[pendragon]

Merci tout le monde cettte petite fonction , fonctionne très bien
Encore merci à tous décidément ce forum est tout ce qu'il y a de plus génial

[cerkyr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Dim fs As Scripting.FileSystemObject
 
    Set fs = New Scripting.FileSystemObject
 
    ' test si le repertoire existe
    If Not fs.FolderExists(chemin) Then
         '  création du repertoire si besoin
         fs.CreateFolder (chemin)
    End If
 
    Set fs = Nothing

bhaal76

Message d'erreur :
fin d'instruction , ligne 1, caractère 8

[cerkyr]

Message d'erreur :
fin d'instruction , ligne 1, caractère 8

Reprise sur un autre forum (test avec succès) :

--

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'*** Déclaration des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 
Dim dossier : dossier = "test"
Dim repSOURCE : repSOURCE = "d:\"
Dim repDESTINATION : repDESTINATION = "d:\data\windows\"
Dim repVERIF : repVERIF = repDESTINATION & dossier
 
'*** On met une condition pour vérifier l'existance du dossier contenu dans la variable "repVERIF".
If fso.FolderExists(repVERIF) Then
        wscript.echo " [  ] Le dossier est déjà présent!!!"
    Else
'*** Si le répertoire n'existe pas, celui-ci sera crée.
        fso.CreateFolder(repDESTINATION & dossier)
        wscript.echo " [OK] Le dossier " & repDESTINATION & dossier & " à été créer."
End If
 
'*** Destruction des objets
Set fso = Nothing

--

[unparia]

Bonjour
Hé bé !
La fonction Dir de VB6 est efficace, native, légère et suffit.
Elle ne retourne pas "" si le dossier est vide, à condition toutefois de l'utiliser comme il se doit
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Dir("D:\titi", vbDirectory)

retournera "titi" si ce dossier existe et "" s'il n'existe pas.
Voilà tout !