Tester nom de fichierRésolu

Question

Salut!!
Projet en Visual Basic 6

Je scanne un dossier pour placer tous les noms des fichiers de ce dossier dansun tableau. Cependant, j'aimerais v&#233;rifier que ces noms de fichiers comporte bien *.txt comme extension.
Comment faire svp?
Merci bien :)

Voici comment je rempli mon tableau : 

        For Each file In f.Files
           listFichiers(i) = file.Name
           i = i + 1
        Next file

jrivet · Accepted Answer

Salut,

D'apr&#232;s ton code il semblerait que tu utilise le FileSystemObject.

Essaie de voir si le code suivant peut t'aider.

Dim fs As New FileSystemObject
Dim fi As File
Dim F As Folder


Set F = fs.GetFolder("C:\TonRepertoire")


For Each fi In F.Files
    If fs.GetExtensionName(fi.Path) = "txt" Then
        Call ListFichiers.AddItem(fi.Name)
    End If
Next

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aurelien2723 · Answer

Cool parfait merci !! :)

Pour ca donne ca exactement : 

    For Each file In f.Files
        If fso.GetExtensionName(file.Name) = "TXT" Then
            listFichiers(i) = file.Name
            i = i + 1
            Else: EcrireLog ("ERREUR : Fichier non texte trouv&#233; : " + file.Name)
        End If
        
    Next file
    nbrFichier = i

jrivet · Answer

Salut,

Et voila 

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aurelien2723 · Answer

Salut!!

J'essai de continuer sur ce sujet mais vu que j'ai validé...

enfait je voudrais mettre dans mon tableau le nom du fichier, mais sans l'extension, ou pour etre plus précis arréter au premier "." trouvé.

Comment pourrais-je faire ceci svp?
Merci bien :)

Tester nom de fichier

4 réponses

Discussions similaires