Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei richtig speichern
Autor: tischler
Datum: 21.01.07 09:57
Hallo zusammen, ich habe ein weiteres Problem: Wenn ich eine Datei über die API Getopenfilename geöffnet habe, und ändere Werte in den Textfeldern, möchte ich die Datei wieder über den Dialog speichern. Nur das funzt nicht. Gebe ich einen neuen Dateinamen ein, wird dieser auch nicht ge- speichert. Woran kann das liegen. If (lngAnt) Then ' gewünschte Dateiendung sDateiendung = "qpy" ' "pst" ' Prüfung des eingegebenen Dateinamens --> ' Dateiname wurde nur mit Punkt angegeben If InStr(1, .lpstrFileTitle, ".") > 0 Then ' Dateiname wurde mit korrekter Dateiendung angegeben If InStr(1, .lpstrFileTitle, "qpy") Then ' If InStr(1, .lpstrFileTitle, sDateiendung) Then Else DatLen = Len(Trim$(.lpstrFileTitle)) ' Dateiname wurde mit unzulässiger Dateiendung angegeben If DatLen > InStr(1, .lpstrFileTitle, ".") + 1 Then ' Statt der MsgBox kann auch die Endung ab [InStr(1, .lpstrFileTitle, ".")] abgeschnitten werden MsgBox "Unzulässige Dateiendung oder Dateiname - Datei wird nicht gespeichert!" Else ' Dateiname hat bereits einen Punkt und braucht nur noch die richtige Dateiendung Dateiname = Mid$(.lpstrFileTitle, 1, (DatLen - 1)) .lpstrFileTitle = Dateiname & sDateiendung End If End If Else DatLen = Len(Trim$(.lpstrFileTitle)) Dateiname = Mid$(.lpstrFileTitle, 1, (DatLen - 1)) ' Dateiname hat noch keinen Punkt und braucht noch die richtige Dateiendung .lpstrFileTitle = Dateiname & "." & sDateiendung End If ShowSaveDlg = .lpstrFileTitle End If End With End Function Beim ersten Speichern klappt das gut. Private Sub Command1_Click() ' Dialog speichern Dim sFile As String Dim strfilter As String strfilter = "Test Dateien (.qpy)|*.qpy|" ' & .qpy" sFile = ShowSaveDlg(Me, strfilter, _ " Dateien speichern", "c:\Test\Daten") Dim K As Integer Dim I As Integer On Error Resume Next K = FreeFile If sFile <> "" Then Open sFile For Output As #K For I = 0 To Text1.UBound Print #K, Text1(I).Text Next I Close #K End If End Sub mfg bruno

Datei richtig speichern	860	tischler	21.01.07 09:57
Re: Datei richtig speichern	512	vbtricks	21.01.07 12:51
Re: Datei richtig speichern	476	tischler	21.01.07 14:19
Re: Datei richtig speichern	486	vbtricks	21.01.07 14:32
Re: Datei richtig speichern	469	tischler	21.01.07 17:26
Re: Datei richtig speichern	471	vbtricks	21.01.07 18:42
Re: Datei richtig speichern	465	BAStler	22.01.07 12:43
Re: Datei richtig speichern	490	BAStler	22.01.07 12:48

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