neocam
Messages postés52Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention 1 mars 2010
-
10 févr. 2009 à 12:02
neocam
Messages postés52Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention 1 mars 2010
-
10 févr. 2009 à 12:50
Bonjour,
Mon But est de parcourir un fichier afin de supprimer toutes les lignes sauf la premiere...
Mon Code tourne mais me supprime toute les lignes et de plus j'ai une erreur sur la ligne du AtEndOfStream : Mode Fichier incorrect
Voici mon code
for each strFile in oFolder.Files
if strFile.type ="Document texte" then
Set MonFic = FSys.OpenTextFile(strFile,2,true)
compt=0
do while MonFic.AtEndOfStream = false
compt=compt+1
if compt > 1 then
MonFic.writeline = ""
end if
loop
MonFic.close
end if
next
neocam
Messages postés52Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention 1 mars 2010 10 févr. 2009 à 12:50
Voila j'ai réussi
Bisarre je doit attendre le rafraichissement j'ai donc ajouter des sleep...
for each strFile in oFolder.Files
if strFile.type ="Document texte" then
Set MonFic = FSys.OpenTextFile(strFile,1)
contenu = MonFic.ReadLine
'wscript.echo contenu
wscript.sleep 1000
Set MonFic = FSys.OpenTextFile(strFile,2)
MonFic.write contenu
MonFic.close
end if
next