Lire tous les fichiers txt d'un dossierRésolu

Question

Bozu !!!! (bonjour on langue indigene si si )

Une nouvelle idée qui me trotine la tête  :

Est ce qu'il serait possible de lire tous les fichiers txt d'un répartoire  un par un ? (si vous avez un lien)

Voilà je ne savais pas comment vous l'expliquer alors j'ai utilisé la bonne vieille méthode de l'algoritme
Peut être que mon algo est faux ou manque d'informations n'hésiter pas faite moi signe 

Début
  
    Tant qu'on n'a pa parcouru tous les fichiers txt du dossier c:\machin\bidule faire 
        'On ne connait pas le nom du fichier 
    ouvrir le fichier 
     nomfichier = le nom du fichier qui va être analyser
        'Pour compter le nombre de fichier analyser 
    Compteur = Compteur + 1
    erreur = 0
    Tant que non fin de fichier faire
                 lire ligne 
                   si <chaine de caractère> existe dans la ligne  alors
                                   erreur = erreur + 1
                  finsi 
    fin tant que 
    si erreur > 0 alors 
            ecrire dans un fichier pas d'erreur dans le fichier " &nomfichier 
            Sinon 
                ecrire dans un fichier "il y a " &erreur& "dans le fichier" & nomFichier 
     fin si
Fin tant que  
 

Aligatogosaïmas ahahahah

Bon je go réfléchir sur ce nouveaux cas 

 PS : Si seulement on nous avait apris le WSH et VBS au lieu du PASCAL (revolue).....lol

cs_JMO · Accepted Answer

Bonjour à tous,

Bonjour McDev04,

un exemple:
Option Explicit Const ForReading 1, ForWriting 2, ForAppending = 8
Dim objFso, objFile, strPath, strExt
Dim File, Result
strPath = "D:\SCRIPTS\Fichiers\Sauve"
strExt = "txt"

Set objFso = CreateObject("Scripting.FileSystemObject")

Call ShowFileTxtFolder(strExt)

Set objFso = Nothing

Function ShowFileTxtFolder (strExt)
For Each objFile In objFso.GetFolder(strPath).Files
    If UCase(objFso.GetExtensionName(objFile.Path)) = UCase(strExt) Then
       Set File = objFso.OpenTextFile(objfile.Path, ForReading)
       MsgBox   File.ReadAll,,objFile.Path
       File.Close
       Set File = nothing
    End if   
Next
End Function

Salut Julien,
trop de questions floues !

jean-marc

McDEV04 · Answer

Heu je travaille en vbScript sous XPPRO sp2
 Au cas ou

McDEV04 · Answer

http://www.clubic.com/forum/programmation/creation-fichier-batch-id179870-page1.html

McDEV04 · Answer

Qu je suis mauvais il le fait en batch,    trop pressé

jrivet · Answer

Salut,
Bon alors résolu ou pas????

@+: Ju£i?n
Pensez: Réponse acceptée

McDEV04 · Answer

Bonjour JM bonjour Julien : Navré pour avoir mis si longtemps à vous répondre 

En tout cas 
Merci merci c'est tous ce qu'il me fallait .
Je l'ai adapté à mon script (sa à pris un peu de temps mais... sa fonctionne) et tout est impec

Merci JM

Lire tous les fichiers txt d'un dossier

6 réponses

Votre réponse

Discussions similaires