Von |
asd |
Am |
30. September 2008 um 07:23:39 |
Frage |
Hi zusammen
Ich frage mich, warum er mir nicht in die Fehlerbehandlung geht. Wenn ich in meiner Inputbox irgendwas eingebe müsste doch Fehler 53 kommen. File not found.
Seh ich den Wald grad vor lauter Bäumen nicht?
Gruß asdSub przlinksoeffnen() '.L Datei öffnen und aktuellen Wert auslesen und In Label anzeigen On Error GoTo fehler dateiname = eingabe & ".L" Dim FNr As Long Dim strText As String Dim Zeile As String FNr = FreeFile Open "C:\xml\" & dateiname For Binary Access Read As #FNr strText = Space$(LOF(FNr)) Get #FNr, , strText Close #FNr Dim Lst$(), i& Lst = Split(strText, vbCrLf) For i = 0 To UBound(Lst) If InStr(1, Lst(i), "FinalThickness", vbTextCompare) > 0 Then Zeile = Lst(i) Exit For End If Next i Label7.Caption = "Aktueller Wert In" & dateiname Label10.Caption = Zeile 'strText = Replace$(strText, "FinalThickness=0", "das soll hin") 'strText = Mid$(strText, InStr(1, strText, "Finalthickness", vbTextCompare) + Len("Finalthickness")) 'Datei schließen und speichern FNr = FreeFile Open "C:\xml\" & dateiname For Output As #FNr Print #FNr, strText Close #FNr List1.AddItem "****************************************" List1.AddItem Now List1.AddItem dateiname & "wurde ausgelesen" List1.AddItem "*****************************************" 'Fehlerbehandlung fehler: Select Case Err.Number Case 53 MsgBox "Datei nicht gefunden" Image12.Visible = True Image11.Visible = False End Select 'MsgBox "Fehlernummer: " & Err & Chr(13) & Chr(10) End Sub |
|