Gestion de fichiers vbs
Fermé
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
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
A voir également:
- Gestion de fichiers vbs
- Gestion de fichiers - Télécharger - Gestion de fichiers
- Explorateur de fichiers - Guide
- Vbs windows - Accueil - Optimisation
- Wetransfer gratuit fichiers lourd - Guide
- Logiciel gestion photo gratuit - Guide
1 réponse
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
21 juil. 2009 à 10:10
21 juil. 2009 à 10:10
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
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
21 juil. 2009 à 15:18
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
23 juil. 2009 à 22:24
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