Wundert mich ja, dass noch niemand geschrien hat ;-)
Hier das Script (z�hlt alle Zeilen aller ASP Dateien, leicht abzu�ndern):
--- Code ---
Dim Pfad
Pfad = InputBox("Bitte Pfad eingeben:","Abfrage Pfad","",10,10)
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim f
Dim fc
Set f = objFSO.GetFolder(Pfad)
Set fc = f.Files
Dim theFile
Number = 0
For Each f1 in fc
If objFSO.GetExtensionName(f1) = "asp" Then
Set theFile = objFSO.OpenTextFile(f1, 1, False)
Do While theFile.AtEndOfStream <> True
theFile.SkipLine
Number = Number + 1
Loop
theFile.Close
End If
Next
MsgBox Number
Set fc = Nothing
Set f = Nothing
Set fso = Nothing
--- Code ---
Ciao
Buchi
http://www.drhirn.com/13
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
