RECHERCHER TOUS LES FICHIERS D'UN MÊME TYPE

Commentaire de cecc52 le 04/05/2006 14:09:46

Coucou :)
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 :)


++

Commentaire de antho2005 le 30/06/2006 19:40:44

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

Commentaire de antho2005 le 15/08/2006 12:52:23

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