Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Nur bestimmte Dateien speichern und öffnen.
Autor: tischler
Datum: 02.01.07 21:41
Hallo BAStler, ich habe jetzt einige Funkt. durchgecheckt, aber ich bekomm das nicht hin, Da eventuell auch "ein Punkt" im Dateinamen vorkommen könnte, habe ich mich für die version entschieden. Aber warum wird der Dateiname nicht mit der Endung *.pst abgespeichert. Was mach ich falsch? Muß ich event. eine Schleife einarbeiten. Besten Dank. mfg bruno Im Bsp. ganz unten läuft das Prog. 'Speichern-Dialog Public Function ShowSaveDlg(F As Form, strfilter As String, _ strTitel As String, strInitDir As String) As String Dim lngOpenFileName As OPENFILENAME Dim lngAnt As Long With lngOpenFileName .lStructSize = Len(lngOpenFileName) .hwndOwner = F.hWnd .hInstance = App.hInstance If Right$(strfilter, 1) <> "|" Then _ strfilter = strfilter + "|" For lngAnt = 1 To Len(strfilter) If Mid$(strfilter, lngAnt, 1) = "|" Then _ Mid$(strfilter, lngAnt, 1) = Chr$(0) Next .lpstrFilter = strfilter .lpstrFile = Space$(254) ' Dateiort Leerstring mit 254 Zeichen .nMaxFile = 255 .lpstrFileTitle = Space$(254) ' Dateiname Leerstring mit 254 zeichen .nMaxFileTitle = 255 .lpstrInitialDir = strInitDir .lpstrTitle = strTitel .flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or _ OFN_CREATEPROMPT Dim sExtension As Boolean Dim sDateiendung As String sDateiendung = ".pst" sExtension = Right$(Trim$(.lpstrFileTitle), 5) = sDateiendung If sExtension = False Then .lpstrFileTitle = .lpstrFileTitle + ".pst" ElseIf sExtension = True Then .lpstrFileTitle = .lpstrFileTitle End If lngAnt = GetSaveFileName(lngOpenFileName) If (lngAnt) Then ShowSaveDlg = Trim$(.lpstrFile) Else ShowSaveDlg = "" End If End With End Function Option Explicit Private Sub Form_Activate() Dim sExtension As Boolean Dim sDateiname As String Dim sDateiendung As String sDateiendung = ".pst" sDateiname = InputBox _ ("Name eingeben:") sExtension = Right$(sDateiname, 5) = sDateiendung If sExtension = False Then sDateiname = sDateiname + ".pst" ElseIf sExtension = True Then sDateiname = sDateiname End If MsgBox sDateiname End Sub

Nur bestimmte Dateien speichern und öffnen.	1.437	Brauner	25.12.06 10:55
Re: Nur bestimmte Dateien speichern und öffnen.	860	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.	820	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.	789	Brauner	25.12.06 18:38
Re: Nur bestimmte Dateien speichern und öffnen.	869	Brauner	25.12.06 20:03
Re: Nur bestimmte Dateien speichern und öffnen.	822	BAStler	25.12.06 20:38
Re: Nur bestimmte Dateien speichern und öffnen.	856	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.	781	BAStler	27.12.06 10:42
Re: Nur bestimmte Dateien speichern und öffnen.	790	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.	718	Brauner	28.12.06 20:00
Re: Nur bestimmte Dateien speichern und öffnen.	732	tischler	02.01.07 21:41
Re: Nur bestimmte Dateien speichern und öffnen.	852	BAStler	03.01.07 13:21
Re: Nur bestimmte Dateien speichern und öffnen.	808	Brauner	03.01.07 15:34
Re: Nur bestimmte Dateien speichern und öffnen.	765	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.	762	BAStler	05.01.07 07:59
Re: Nur bestimmte Dateien speichern und öffnen.	742	tischler	20.01.07 23:21
Re: Nur bestimmte Dateien speichern und öffnen.	728	tischler	18.01.07 21:10
Re: Nur bestimmte Dateien speichern und öffnen.	803	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