Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Nur bestimmte Dateien speichern und öffnen.
Autor: Brauner
Datum: 26.12.06 16:32
Hallo BASTler, ich habe das ausprobiert, aber das funzt so nicht. Mit sFile, 4 wird die Endung richtig mitgeteilt. Aber ich kann das immer noch nicht öffnen, da die Dateien ohne *.PST gespeichert und auch im Dialogfenster ohne *.PST angezeigt werden. Wenn ich eine Datei ausgewählt habe, zeigt er mir an: Datei kann nicht geöffnet werden . Klick im Dialog auf Abbrechen, verschwindet das Fenster und die Werte werden richtig in die Textboxen geschrieben. Zum Ausprobieren habe ich eine Textbox s.u. zum Öffnen mit der Dateiendung geprogt. Da wird das richtig angezeigt. Was mache ich falsch. mfg bruno sub command1.click() Opendat end sub Sub Opendat() Dim sFile As String sFile = ShowOpenDlg(Me, "*.pst ( Dateien)|*.pst", _ Datei öffnen", App.Path ) Dim sDateiendung As String Dim F As Integer Dim I As Integer Dim AllText As String Dim LineOfText As String On Error Resume Next If sFile <> "" Then F = FreeFile Open sFile For Input As #F sDateiendung = LCase$(Right$(sFile, 4)) Select Case sDateiendung Case "py1" MsgBox "Richtiger Dateityp" Case Else MsgBox "Datei kann nicht geöffnet werden." Opendat End Select Do Until EOF(F) For I = 0 To Text1.Ubound Line Input #F, LineOfText AllText = AllText & LineOfText & vbCrLf Next I Loop Close #F ' hier die geöffnete Datei umschreiben Dim strLines() As String ' Array Alltext strLines = Split(AllText, vbCrLf) ' zeilenweise einlesen For I = 0 To UBound(strLines) Text1(I).Text = strLines(I) Next I ' Hier zur Probe überprüft, ob Dateiendung pst auch geöffnet wird. ' Text1(4).Text = sDateiendung End If End Sub Private Sub Command2_Click() Dim sFile As String sFile = ShowSaveDlg(Me, "*.pst ( Dateien)|*.pst", _ " Datei speichern", App.Path) Dim F As Integer Dim I As Integer On Error Resume Next F = FreeFile If sFile <> "" Then Open sFile For Output As #F For I = 0 To Text1.Ubound Print #F, Text1(I).Text Next I Close #F End If End Sub

Nur bestimmte Dateien speichern und öffnen.	1.437	Brauner	25.12.06 10:55
Re: Nur bestimmte Dateien speichern und öffnen.	859	BAStler	25.12.06 11:08
Re: Nur bestimmte Dateien speichern und öffnen.	792	Brauner	25.12.06 11:29
Re: Nur bestimmte Dateien speichern und öffnen.	819	Brauner	25.12.06 11:37
Re: Nur bestimmte Dateien speichern und öffnen.	768	TTSAddict	25.12.06 15:40
Re: Nur bestimmte Dateien speichern und öffnen.	788	Brauner	25.12.06 18:38
Re: Nur bestimmte Dateien speichern und öffnen.	868	Brauner	25.12.06 20:03
Re: Nur bestimmte Dateien speichern und öffnen.	821	BAStler	25.12.06 20:38
Re: Nur bestimmte Dateien speichern und öffnen.	855	Brauner	26.12.06 16:32
Re: Nur bestimmte Dateien speichern und öffnen.	980	BAStler	27.12.06 09:11
Re: Nur bestimmte Dateien speichern und öffnen.	780	BAStler	27.12.06 10:42
Re: Nur bestimmte Dateien speichern und öffnen.	789	Brauner	27.12.06 18:59
Re: Nur bestimmte Dateien speichern und öffnen.	787	Brauner	27.12.06 19:26
Re: Nur bestimmte Dateien speichern und öffnen.	808	BAStler	27.12.06 21:22
Re: Nur bestimmte Dateien speichern und öffnen.	717	Brauner	28.12.06 20:00
Re: Nur bestimmte Dateien speichern und öffnen.	731	tischler	02.01.07 21:41
Re: Nur bestimmte Dateien speichern und öffnen.	851	BAStler	03.01.07 13:21
Re: Nur bestimmte Dateien speichern und öffnen.	807	Brauner	03.01.07 15:34
Re: Nur bestimmte Dateien speichern und öffnen.	764	BAStler	04.01.07 09:02
Re: Nur bestimmte Dateien speichern und öffnen.	789	Brauner	04.01.07 16:22
Re: Nur bestimmte Dateien speichern und öffnen.	761	BAStler	05.01.07 07:59
Re: Nur bestimmte Dateien speichern und öffnen.	740	tischler	20.01.07 23:21
Re: Nur bestimmte Dateien speichern und öffnen.	726	tischler	18.01.07 21:10
Re: Nur bestimmte Dateien speichern und öffnen.	802	BAStler	19.01.07 11: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