A voir également:
- Gestion de fichiers vbs
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
- Renommer plusieurs fichiers - Guide
- Logiciel gestion photos - Guide
- Vbs windows - 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