Ach, noch ein gaaanz einfaches Zählprogrämmchen (die zu zählenden Dateien werden in einer Textdatei im gleichen Verzeichnis angegeben):
Code: Alles auswählen
;für Batze ;)
If OpenFile(0,"CountLinesList.txt")
While Eof(0)=0
UseFile(0)
d$=ReadString()
If OpenFile(1,d$)
Files+1
While Eof(1)=0
a$=ReadString()
If a$
Lines+1
EndIf
Wend
CloseFile(1)
EndIf
Wend
CloseFile(0)
a$=Str(Files)+" Files"+Chr(13)+Chr(10)
a$+Str(Lines)+" Lines"
MessageRequester("Project LineCount",a$)
EndIf