23. Jul 2019, 07:16
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  VB6: OnError greift nicht
 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ß
asd
Sub 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
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
VB6: OnError greift nicht - asd 30. September 2008 um 07:23:39
Re: OnError greift nicht - jh 30. September 2008 um 08:26:16
Re: OnError greift nicht - asd 30. September 2008 um 13:37:04

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum