Rechercher tous les fichiers d'un même type

Soyez le premier à donner votre avis sur cette source.

Vue 8 000 fois - Téléchargée 972 fois

Description

On peut afficher tous les fichiers du même type contenus dans un lecteur puis les imprimer ou en imprimer qu'une sélection.
Je sais, c'est archi connu mais cela peut servir aux débutants.
Je suis parti d'une idée prise sur http://www.allapi.net/

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
plutot ça :

nbr = InStr(Combo1, "")
nbr = nbr + InStr(Combo1, "/")
nbr = nbr + InStr(Combo1, ":")
nbr = nbr + InStr(Combo1, "?")
nbr = nbr + InStr(Combo1, Chr(34))
nbr = nbr + InStr(Combo1, "<")
nbr = nbr + InStr(Combo1, ">")
nbr = nbr + InStr(Combo1, "|")

If nbr = 0 Then

pour le début ...
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Salut,

pour verifier si il veut bien chercher une extension et pas un nom.*, il faudrai mettre ça

Sub Command1_Click() 'Rechercher

nbr = InStr(Combo1, "")
nbr = nbr + InStr(Combo1, "/")
nbr = nbr + InStr(Combo1, ":")
nbr = nbr + InStr(Combo1, "?")
nbr = nbr + InStr(Combo1, Chr(34))
nbr = nbr + InStr(Combo1, "<")
nbr = nbr + InStr(Combo1, ">")
nbr = nbr + InStr(Combo1, "|")
nbrdeu = InStr(Combo1, ".")

If nbr = 0 And nbrdeu > 1 Then

Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
Text3.Text = ""
Text4.Text = ""
Screen.MousePointer = vbHourglass
List1.Clear

SearchPath = Text1.Text
nbr = InStr(Combo1, "*.")
nbr = nbr + InStr(Combo1, ".*")
If nbr < 1 Then
FindStr = "*." & Combo1.Text
Else
FindStr = Combo1.Text
End If
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
Text3.Text = NumFiles & " Fichiers trouvés dans " & NumDirs + 1 & " Dossiers"
Text4.Text "Taille des fichiers trouvés: " & SearchPath & " " & Format(FileSize, "#,###,###,##0") & " Bytes"
Screen.MousePointer = vbDefault

Else

MsgBox "Erreur dans le nom du fichier", vbCritical, "Erreur"

End If

End Sub

dans le command1_click.

@+

Antho2005
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Annulé
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Salut,

peut on afficher les nom de fichiers et les noms de dossier contenus dans un dossier mais ne pas mettre les fichiers des dossiers suivants ?

exemple :

Si dans un dossier j'ai les fichier et dossier suivants :

toto.txt
titi.txt
tata.txt
toto(dossier)
titi(dossier)
tata(dossier)

dans le dossier toto j'ai : test1.txt
dans le dossier titi j'ai : test2.txt
dans le dossier tata j'ai : test3.txt

Comment, dans ma listbox, afficher juste :

toto.txt
titi.txt
tata.txt
toto
titi
tata

Merci d'avance pour votre réponse.

A+

Antho2005
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017

Merci pour tes remarques.
Les variables sont peu nombreuses.
J'essaierai de faire mieux la prochaine fois.
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.