Excel - SVERWEIS
17.08.2012 um 13:52gut wo nu false und wo wieder true? :)
Sub DateiauslesenTime()
Dim lngDateiNummer As Long, lngZ As Long
Dim strZeile As String, strPfad As String
Dim datBeginn As Date, datEnde As Date
Dim intS As Integer
intS = 1
datBeginn = Now
strPfad = "Pfad.txt"
Application.ScreenUpdating = False
If Dir(strPfad) "" Then
lngDateiNummer = FreeFile
Open strPfad For Input As #lngDateiNummer
Do While Not EOF(lngDateiNummer)
Line Input #lngDateiNummer, strZeile
If strZeile "" Then
If Left(Trim(strZeile), 11) = "Verzeichnis" Then
lngZ = lngZ + 1
Cells(lngZ, intS) = strZeile
End If
End If
Loop
Close #lngDateiNummer
End If
Application.ScreenUpdating = True
datEnde = Now
MsgBox Format(datEnde - datBeginn, "hh:nn:ss")
Exit Sub
FEHLER:
MsgBox Err.Description
Application.ScreenUpdating = True
End Sub