RECHERCHER TOUS LES FICHIERS D'UN MÊME TYPE
cs_cecc52
Messages postés
3
Date d'inscription
samedi 25 mars 2006
Statut
Membre
Dernière intervention
4 mai 2006
-
4 mai 2006 à 14:09
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 - 15 août 2006 à 12:54
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 - 15 août 2006 à 12:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37363-rechercher-tous-les-fichiers-d-un-meme-type
https://codes-sources.commentcamarche.net/source/37363-rechercher-tous-les-fichiers-d-un-meme-type
15 août 2006 à 12:54
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 ...
15 août 2006 à 12:52
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
30 juin 2006 à 20:04
30 juin 2006 à 19:40
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
4 mai 2006 à 18:36
Les variables sont peu nombreuses.
J'essaierai de faire mieux la prochaine fois.
4 mai 2006 à 14:09
je suis débutant et sans les bases mais ton petit programme est instructif :D.
petit reproche sachant que ta source est pour les débutants tu aurais pu dir a quoi correspond tes variables pour faciliter la lecture.
Mais bon j'aime bien quand meme :)
++