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 ] |
|