Gestion de fichiers vbs

FADICO -  
 FADICO -
Bonjour,
Set Ftxt = FSO.OpenTextFile("C:\nom dossier\nom fic.txt")
par vbs je controle un fichier txt ligne par ligne ;je genere une log ki repporte les variables ke je cherche ca marche bien . le probleme :
j'ai 700 fichiers a controler sur mon dossier et a mettre sur la log . y a t il un moyen de boucler sur ftxt pour traiter ts les fichiers ?
vos suggestions svp
merci d'avance
Configuration: Windows XP Internet Explorer 8.0

1 réponse

  1.
    tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    Bonjour,
    Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
    Set MonRep=FSO.GetFolder("C:\MONDOSSIER")
    Set colfic = MonRep.Files
    For Each fic In colfic
    ton code....
    Next
    Bone journée
    0
    1. FADICO
       
      Dim fso,ftxt,ftxt1,xlApp,ActiveSheet,fic,colfic,monrep

      Set FSO = CreateObject("Scripting.FileSystemObject")
      Set Ftxt = FSO.OpenTextFile("C:\vse\ze400T05.txt")

      Set xlApp = CreateObject("excel.application")
      xlApp.Visible = True
      xlapp.Application.Workbooks.Open "C:\vse\ze400T05.xls"
      voila ta proposition :

      Set MonRep=FSO.GetFolder("C:\vse")

      Set colfic = MonRep.Files
      For Each fic In colfic

      Do While Not Ftxt.AtEndOfStream

      ligne = Ftxt.Readline
      ligne1= Ftxt.Readline
      SAVE = mid(ligne,11,4)
      suite mon code .....
      loop

      next

      regarde stp ou est l'error
      0
    2. FADICO
       
      j'ai trouver la solution Pour executer le mon code d'analyse sur l'ensemble des fichiers de mon repertoire :

      la solutioon réside dans le faite de mettre :

      Set colfic = MonRep.Files
      For Each fic In colfic
      set Ftxt = FSO.OpenTextFile(fic) 'le fic affiche le chemin complet des fichiers en question

      en suite le parcourir le fichier de la boucle for
      Do While Not Ftxt.AtEndOfStream
      MaVariable = Ftxt.Readline
      suite code


      merci de ton aide tompols
      0