- option explicit
-
- 'ce programme sert à savoir combien de ligne contient un fichier
- dim cpt1, cpt2 , l , TS , fso ,chemin
- cpt1=0
- cpt2=0
-
- msgbox "bonjour , ce programme va vous servir à connaitre le nombre de ligne d'un fichier sans effort"&vbcrlf&vbcrlf&"(ne marche q'avec les fichier de type texte comme les .txt .doc .vbs .html ....)",,"présentation"
-
- chemin=inputbox ("donnez le chemin EXACTE du fichier ."&vbcrlf&vbcrlf&"ex : c:\test.txt ","chemin","le chemin du fichier")
-
-
- set fso=wscript.createobject("scripting.filesystemobject")
-
- if fso.FileExists(chemin) then
-
- set TS=fso.opentextfile(chemin,1)
-
- do while not TS.atendofstream
- l=TS.readline
- cpt1=cpt1+1
- if l="" then cpt2=cpt2+1 end if
- loop
-
- TS.close
-
- msgbox "il y a "&cpt1&" lignes dans votre fichier dont "&cpt2&" ligne vide"
-
- else msgbox "ce fichier n'existe pas !",,"fichier introuvable"
- end if
-
- msgbox "MaRvIn CoRpOrAtIoN",,"SiGnAtUrE"
option explicit
'ce programme sert à savoir combien de ligne contient un fichier
dim cpt1, cpt2 , l , TS , fso ,chemin
cpt1=0
cpt2=0
msgbox "bonjour , ce programme va vous servir à connaitre le nombre de ligne d'un fichier sans effort"&vbcrlf&vbcrlf&"(ne marche q'avec les fichier de type texte comme les .txt .doc .vbs .html ....)",,"présentation"
chemin=inputbox ("donnez le chemin EXACTE du fichier ."&vbcrlf&vbcrlf&"ex : c:\test.txt ","chemin","le chemin du fichier")
set fso=wscript.createobject("scripting.filesystemobject")
if fso.FileExists(chemin) then
set TS=fso.opentextfile(chemin,1)
do while not TS.atendofstream
l=TS.readline
cpt1=cpt1+1
if l="" then cpt2=cpt2+1 end if
loop
TS.close
msgbox "il y a "&cpt1&" lignes dans votre fichier dont "&cpt2&" ligne vide"
else msgbox "ce fichier n'existe pas !",,"fichier introuvable"
end if
msgbox "MaRvIn CoRpOrAtIoN",,"SiGnAtUrE"