Discussion :

[Jiyuu]

Bonjour,

Je souhaite avec mon programme contrôler si des fichiers sont présents dans un dossier, dans quel cas je lance une procédure précise.
Je pense qu'il faut travailler avec FileInfo mais j'ai du mal à trouver la bonne expression.

Quelqu'un peut-il m'aider?

D'avance merci
Charles-Elie

[Aspic]

Essaye ca :

Code :

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

1
2
3
4
5
6
7
   Dim dir As DirectoryInfo = New DirectoryInfo("C:\test")
        Dim fichier As FileInfo
 
        For Each fichier In dir.GetFiles
            'et la tu vérifie si ton répertoire est vide ou non
            'si tu recherche un fichier spécifique, utilise un If Then 
        Next

[Pol63]

Code :

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

If System.IO.File.Exists(path as string) Then  ...

[Jiyuu]

Essaye ca :

Code :

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

1
2
3
4
5
6
7
   Dim dir As DirectoryInfo = New DirectoryInfo("C:\test")
        Dim fichier As FileInfo
 
        For Each fichier In dir.GetFiles
            'et la tu vérifie si ton répertoire est vide ou non
            'si tu recherche un fichier spécifique, utilise un If Then 
        Next

Je suis d'accord sur l'utilisation de ce code, c'est d'ailleurs celui-ci que j'utilise.
Mon problème se situe au moment ou je veux vérifier si le dossier est vide ou non.
J'ai essayé plusieurs codes (dont celui de sperot51) mais sans succès.

[Pol63]

tu saurais t'exprimer on pourrait mieux te répondre
ta première question ne reflete pas ce que tu recherches ... et en plus est totalement différente du titre


pour savoir si un dossier existe :

Code :

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

     System.IO.Directory.Exists(path As String)

pour connaitre le nombre de fichier dans un dossier :

Code :

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

1
2
3
 
            Dim files As String() = System.IO.Directory.GetFiles(path As String)
            If files.GetUpperBound(0) = 0 Then 'aucun fichier dans ce dossier

GetFiles renvoie un tableau de string
il est donc possible de savoir quelle est la taille du tableau via files.GetUpperBound(0)

[Jiyuu]

tu saurais t'exprimer on pourrait mieux te répondre
ta première question ne reflete pas ce que tu recherches ... et en plus est totalement différente du titre


pour savoir si un dossier existe :

Code :

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

     System.IO.Directory.Exists(path As String)

pour connaitre le nombre de fichier dans un dossier :

Code :

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

1
2
3
 
            Dim files As String() = System.IO.Directory.GetFiles(path As String)
            If files.GetUpperBound(0) = 0 Then 'aucun fichier dans ce dossier

GetFiles renvoie un tableau de string
il est donc possible de savoir quelle est la taille du tableau via files.GetUpperBound(0)

Je vais voir si je peux me débrouiller avec les codes que tu viens de me donner. Le dernier ne me semble pas mal.
Par contre en ce qui concerne ma demande, avec tout le respect que je te dois, elle était claire et le titre correspond à ce que je veux.
Maintenant, je ne suis pas un développeur aussi pointu que vous autres, mais je fais du mieux que je peux, avec les connaissances et le temps que j'ai...

Slts.

[Jiyuu]

Désolé sperot51, mais je ne parviens à faire correctement fonctionner ton code. Comme je ne dois pas m'exprimer correctement voici ce que je veux:

Code :

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

1
2
3
4
5
6
7
8
Dim path As String = "C:\DOSSIER Test\"
'Déclaration de vide...
If vide = true then   'vide est true si DOSSIER TEST est vide
messagebox.show("dossier vide", avertissement")
else
messagebox.show("présence de fichiers dans ce dossier", "info")
end if

Je sais que cela doit être hyper simple, mais je n'y arrive pas.
Désolé d'être pénible mais là je suis vraiment coincé.

[Pol63]

Je sais que cela doit être hyper simple, mais je n'y arrive pas.
Désolé d'être pénible mais là je suis vraiment coincé.

y a pas de probleme, le but c'est de trouver, pas de rester dans le flou (et accessoirement de comprendre)

par contre ca serait bien de préciser en quoi ce que je t'ai donné marche pas, est-ce que ca plante, est-ce que ca dit que c'est vide alors que y a des fichiers, l'inverse ...

Code :

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

1
2
3
4
5
6
7
8
 
Dim path As String = "C:\DOSSIER Test" ' sans le \ à la fin peut être ...
Dim files As String() = System.IO.Directory.GetFiles(path) 
If files.GetUpperBound(0) = 0 then   ' si DOSSIER TEST est vide
    messagebox.show("dossier vide", "avertissement")
  else
    messagebox.show("présence de fichiers dans ce dossier", "info")
end if

[Jiyuu]

Ca ne marche pas vraiment comme je le souhaite, du coup j'ai rusé...

J'ai décidé d'utiliser un combobox, dans le quel je recopie l'image de l'intégralité des répertoires et/ou fichiers présents dans un répertoire que je choisi via un une textbox (chemin d'accès).

Si le répertoire en question est vide alors rien n'apparait dans mon combobox.

Cela est encore mieux car me permet par la suite de choisir si je veux effacer ou modifier le répertoire ou le fichier choisi.


Merci à tous pour votre aide.

Amicalement
Charles-Elie