29. März 2024, 00:15
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  VB6: Was ist hier falsch?
 Von  asd
 Am  17. September 2008 um 08:59:49
 Frage Hi, ich will eine Datei öffnen, diese Datei gibt es auch unter X:\xml

wenn er die datei findet kann er sie auch öffnen, wenn nicht kommt es zum fehler bzw. das Programm stürzt ab. Das ganze wollte ich abfangen, komm aber grad net drauf. ich hab glaub nen denkfehler...
Private Sub Command2_Click()

'Einlese-Prozess für Glas links

Dim eingabe As String
'Starte Einlese-Prozess
eingabe = InputBox("Bitte lesen Sie mit dem Scanner die Dateinummer ein")
List2.Clear
'Ende Einlese-Prozess

'Entsprechende Datei öffnen mit der Nummer die sich In der Variablen eingabe befindet

Open "C:\xml\" & eingabe & ".txt" For Input As #1 ' Datei öffnen.
On Error GoTo fehler
fehler:
Beep
Picture3.Visible = True
If MsgBox("Datei nicht gefunden", vbExclamation + vbOKOnly) = vbOK Then
List2.Clear
End If

'Wenn öffnen der Datei erfolgreich In Liste eintragen
Picture2.Visible = True
List2.AddItem "----------" & " " & Now & " " & "----------"
List2.AddItem "DATEI ÖFFNEN ERFOLGREICH"
List2.AddItem eingabe
List2.AddItem "-------------------------------"

'Fehlerüberprüfung
If List2.ListCount = 0 Then
Beep
Picture3.Visible = True
MsgBox "Fehler beim öffnen der Datei", vbExclamation + vbOKOnly
Exit Sub
End If

Dim Textzeile
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, Textzeile ' Zeile In Variable einlesen.
Debug.Print Textzeile ' Ausgabe im Direktfenster.
Loop
Close #1 ' Datei schließen.
End Sub
 Antwort:
 Von asd
 Am 18. September 2008 um 07:28:08
 Antwort na das ist doch mal ne hilfe

Vielen dank... aber der witz ist, das ist mir eingefallen als ich gestern abend am einschlafen war...
manchmal kommen einem die besten ideen wenn man es am wenigsten erwartet.

Trotzdem vieln dank gaga.

Gruß

asd
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
VB6: Was ist hier falsch? - asd 17. September 2008 um 08:59:49
Re: Was ist hier falsch? - Gaga 17. September 2008 um 09:39:06
Re: Was ist hier falsch? - asd 18. September 2008 um 07:28:08

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