Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler 13 (Win95)
Autor: Dieter Becker
Datum: 02.02.02 11:06
Hallo allerseits, Ich habe Euch mal eine kleine Routine kopiert. Diese Routine läuft auf meinem Rechner (Win2000 und WinNt) ohne Probleme. Sobald diese Routine unter Windows 95 aufgerufen wird. Bricht das Programm mit FehlerNr 13. Typen unverträglich ab. Leider kann ich das auf dem Zielrechner nicht debuggen. (Kein Administrator) und damit leider auch kein VB auf dem Rechner). Vieleicht könnt Ihr hier einen Fehler entdecken ? Private Sub Command3_Click() 'Datum 'im modul = public name1 as string 'im modul = public datum as date 'im modul = public liste(50) as string Dim txtdat As String Dim datum1 As Date Dim monat As Byte Dim monat1 As Byte monat = Month(datum) 'aktueller monat zähler = 0 pathname = "C:Tass_WMOLog\" ''''erstes file lautet z.B. 2301dat.log 23.Januar name1 = Dir(pathname & "*.log") '''''alle log-dateien holen While name1 <> "" monat1 = Mid(name1, 3, 2) '''''monat1 hier z.B. 2301dat.log = 01 If monat = monat1 Then '''''nur akt.Monat wird benötigt datum1 = Left(name1, 2) & "." & Mid(name1, 3, 2) '''''z.B. "23.01" txtdat = Format(datum1, "dd. mmmm") '''''nun sollte hier txtdat = 23. Januar sein frmDatum.List1.AddItem (txtdat) '''''und rein in list1 liste(zähler) = txtdat zähler = zähler + 1 End If name1 = Dir Wend If zähler > 0 Then '''''ist eintrag vorhanden ? frmDatum.List1.ListIndex = 0 ''''' ja, Erstes Listenelement anzeigen. frmDatum.Show ''''' Wird nicht mehr ausgeführt !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 End If End Sub

Fehler 13 (Win95)	58	Dieter Becker	02.02.02 11:06
Re: Fehler 13 (Win95)	39	Tolwyn	02.02.02 14:56
Danke	34	Dieter B.	02.02.02 15:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen