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
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
- Public Sub readoptions()
- DoEvents
- 'Diese Funktion liest die Optionen aus der Optionsdatei und
- 'setzt diese im Programm um
- 'Datei öffnen und einlesen
- Open App.Path & "\data\options.dat" For Input As #11
- Input #11, mitschnitt
- Input #11, minirec
- Close #11
- 'Optionen in Optionsfelder lesen
- vol_standard = "80"
- main.option_mitschnitt.Text = mitschnitt
- main.option_minirec.Text = minirec
- 'prüfen ob internal.dat vorhanden ist
- 'und Daten einlesen
- Dim FSO As New FileSystemObject
- If FSO.FileExists(App.Path & "\data\internal.dat") Then
- Open App.Path & "\data\internal.dat" For Input As #13
- Input #13, volumea
- Close #13
- Else
- Open App.Path & "\data\internal.dat" For Output As #14
- Print #14, vol_standard
- Close #14
- End If
- main.volume.Value = volumea
- main.player.settings.volume = volumea
- 'Prüfen ob recordingverzeichnis vorhanden
- Set fs = New FileSystemObject
- If Not fs.FolderExists(App.Path & "\recordings\songhistory") Then MkDir (App.Path & "\recordings\songhistory")
- End Sub
Chris' Weblog - Mein Blog rund um Vieles