Runtime Error 62 in Funktion

  • VB6

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Alex2000.

    Runtime Error 62 in Funktion

    Hallo zusammen

    Folgendes Problem. Die untenstehende Funktion prüft
    a) ob eine bestimmte Datei existiert oder nicht. Wenn nein, wird sie angelegt
    b) ob ein bestimmter Ordner existiert oder nicht. Wenn nein, wird er angelegt
    Weiterhin werden noch Optionen aus einem File ausgelesen.
    Meine Testerin bekommt aber nun irgendwo in dieser Funktion einen Runtime Error 62.
    Nur Punkte a und b im Code sind neu, der Rest war in der Vorversion schon drin.

    Habt ihr eine Idee?

    Liebe Grüsse
    KlyX


    Visual Basic-Quellcode

    1. Public Sub readoptions()
    2. DoEvents
    3. 'Diese Funktion liest die Optionen aus der Optionsdatei und
    4. 'setzt diese im Programm um
    6. 'Datei öffnen und einlesen
    7. Open App.Path & "\data\options.dat" For Input As #11
    8. Input #11, mitschnitt
    9. Input #11, minirec
    10. Close #11
    12. 'Optionen in Optionsfelder lesen
    13. vol_standard = "80"
    14. main.option_mitschnitt.Text = mitschnitt
    15. main.option_minirec.Text = minirec
    17. 'prüfen ob internal.dat vorhanden ist
    18. 'und Daten einlesen
    19. Dim FSO As New FileSystemObject
    20. If FSO.FileExists(App.Path & "\data\internal.dat") Then
    21. Open App.Path & "\data\internal.dat" For Input As #13
    22. Input #13, volumea
    23. Close #13
    24. Else
    25. Open App.Path & "\data\internal.dat" For Output As #14
    26. Print #14, vol_standard
    27. Close #14
    28. End If
    30. main.volume.Value = volumea
    31. main.player.settings.volume = volumea
    33. 'Prüfen ob recordingverzeichnis vorhanden
    34. Set fs = New FileSystemObject
    35. If Not fs.FolderExists(App.Path & "\recordings\songhistory") Then MkDir (App.Path & "\recordings\songhistory")
    37. End Sub
    Chris' Weblog - Mein Blog rund um Vieles :D

    Hallo, versuch´s mal so:

    Visual Basic-Quellcode

    1. Public Sub readoptions()
    2. DoEvents
    3. 'Diese Funktion liest die Optionen aus der Optionsdatei und
    4. 'setzt diese im Programm um
    6. Dim FSO As New FileSystemObject
    7. Dim FF As Integer
    9. FF = FreeFile
    11. 'Datei öffnen und einlesen
    12. Open App.Path & "\data\options.dat" For Input As #FF
    13. mitschnitt = Input(LOF(FF), #FF)
    14. minirec = Input(LOF(FF), #FF)
    15. Close #FF
    17. 'Optionen in Optionsfelder lesen
    18. vol_standard = "80"
    19. main.option_mitschnitt.Text = mitschnitt
    20. main.option_minirec.Text = minirec
    22. FF = FreeFile
    24. If FSO.FileExists(App.Path & "\data\internal.dat") Then
    25. Open App.Path & "\data\internal.dat" For Input As #FF
    26. volumea = Input(LOF(FF), #FF)
    27. Close #FF
    28. Else
    29. Open App.Path & "\data\internal.dat" For Output As #FF
    30. Print #FF, vol_standard;
    31. Close #FF
    32. End If
    34. main.volume.Value = volumea
    35. main.player.settings.volume = volumea
    37. 'Prüfen ob recordingverzeichnis vorhanden
    38. Set fs = New FileSystemObject
    39. If Not fs.FolderExists(App.Path & "\recordings\songhistory") Then MkDir (App.Path & "\recordings\songhistory")
    41. End Sub

    Mit der LOF() oder der EOF() Funktion beim Einlesen der Datei kann diesen Fehler vermeiden.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @alexc: wenn ich das beantworten könnte, hätte ich es getan. Da der Fehler bei mir selbst nicht aufgetreten ist und sie nur die Executable bekommt, bekomme ich da keine Informationen.
    Aber ich werde mal die Variante von wincnc probieren.
    Danke schon mal.

    KlyX

    EDIT: Also die Version von wincnc führte nun auch zu einem Laufzeitfehler bei mir ;) Das heisst dass ich nun aber vermutlich zumindest weiss, wo das Problem liegt. Und zwar scheint die gelesene Datei meiner Testerin noch in einer alten Version vorzuliegen. Muss ich wohl noch ne Routine einbauen, welche die zeile anfügt, wenn sie nicht vorhanden ist ;-). Da das Programm per Updater aktualisiert wird, kann ich derzeit keine zusätzlichen Dateien mitnehmen ausser die EXE.

    KlyX
    Chris' Weblog - Mein Blog rund um Vieles :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KlyX“ ()

    Ich hab noch ein mal deine Code angeschaut und da ist mir was aufgefallen !

    hier deklarierst du die variable:

    Visual Basic-Quellcode

    1. Dim FSO As New FileSystemObject


    und hier verwendest du sie schon wieder nur falsch geschrieben:

    Visual Basic-Quellcode

    1. Set fs = New FileSystemObject
    2. If Not fs.FolderExists(App.Path & "\recordings\songhistory") Then MkDir (App.Path & "\recordings\songhistory")


    an deine Stelle werde ich die Code in Form Code rein schreiben und nicht in irgend-welche Module /Classen das ist der erste fehler.
    Schau deine Code ganau an, seit wann zuerst FSO Objeckt verwenden und dann initialisieren:


    Visual Basic-Quellcode

    1. Dim FSO As New FileSystemObject
    3. 'deine code....
    5. If FSO.FileExists(App.Path & "\data\internal.dat") Then
    7. '......
    9. 'Prüfen ob recordingverzeichnis vorhanden
    10. Set fs = New FileSystemObject
    11. If Not fs.FolderExists(App.Path & "\recordings\songhistory") Then MkDir (App.Path & "\recordings\songhistory")



    wenn dann so:

    Visual Basic-Quellcode

    1. Public Sub readoptions()
    2. DoEvents
    3. 'Diese Funktion liest die Optionen aus der Optionsdatei und
    4. 'setzt diese im Programm um
    6. Dim FSO As New FileSystemObject
    7. Dim FF As Integer
    9. Set FSO = New FileSystemObject
    11. FF = FreeFile
    14. 'Fehler Routine eibauen
    15. 'Datei öffnen und einlesen
    16. Open App.Path & "\data\options.dat" For Input As #FF
    17. mitschnitt = Input(LOF(FF), #FF)
    18. minirec = Input(LOF(FF), #FF)
    19. Close #FF
    21. 'Optionen in Optionsfelder lesen
    22. vol_standard = "80"
    23. main.option_mitschnitt.Text = mitschnitt
    24. main.option_minirec.Text = minirec
    26. FF = FreeFile
    28. 'Fehler Routine einbauen
    29. If FSO.FileExists(App.Path & "\data\internal.dat") Then
    30. Open App.Path & "\data\internal.dat" For Input As #FF
    31. volumea = Input(LOF(FF), #FF)
    32. Close #FF
    33. Else
    34. Open App.Path & "\data\internal.dat" For Output As #FF
    35. Print #FF, vol_standard;
    36. Close #FF
    37. End If
    39. main.volume.Value = volumea
    40. main.player.settings.volume = volumea
    42. 'Prüfen ob recordingverzeichnis vorhanden
    44. If Not FSO.FolderExists(App.Path & "\recordings\songhistory") Then MkDir (App.Path & "\recordings\songhistory")
    46. End Sub


    Da wo du deine Werte aus Dateien einliest würde ich eine Fehlerbehandlungs Routine einbauen und dann schauen was passiert !

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Alex2000“ ()

Facebook
Telefonspende