Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien laden
Autor: HarryKim
Datum: 19.12.02 16:43
etwas so aber das klappt bei mir nicht Public Function Speichern() Dim DateiNr As Integer cdlspeichern.InitDir = "C:\" cdlspeichern.Filter = "*.vtr (Vokabeltrainer-Daten)|*.vtr|*.txt (Textdateien)|*.txt|*.* (Alle Dateien)|*.*" cdlspeichern.DialogTitle = "Öffnen einer Vokabelliste" cdlspeichern.ShowSave Dateiname = cdlspeichern.FileName If Dateiname = "" Then Exit Function 'Es wurde kein Dateiname ausgewählt m = 0 On Error GoTo Fehler DateiNr = FreeFile Open Dateiname For Output As DateiNr Do Until m = n Print #DateiNr, inhalt(m, 0) Print #DateiNr, inhalt(m, 1) m = m + 1 Loop Close DateiNr Exit Function Fehler: MsgBox prompt:="Speichern fehlgeschlagen" End Function ...

Dateien laden	464	HarryKim	19.12.02 16:16
Re: Dateien laden	257	Boris	19.12.02 16:33
Sorry - einige Bugs *gg*	337	Boris	19.12.02 16:36
Re: Sorry - einige Bugs *gg*	282	HarryKim	19.12.02 16:37
Möchtest du das aus einer FileListBox auswählen ?	256	Boris	19.12.02 16:39
Re: Möchtest du das aus einer FileListBox auswählen ?	299	HarryKim	19.12.02 16:41
Re: Dateien laden	324	HarryKim	19.12.02 16:43
Re: Dateien laden	320	Boris	19.12.02 16:49
habs:	436	Boris	19.12.02 16:53
Damits funzt brauchst du:	298	Boris	19.12.02 16:55
thx	271	HarryKim	19.12.02 18:35
Nachtrag:	412	Boris	19.12.02 17:03

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