Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Listview Inhalt speichern
Autor: Junior Proggi
Datum: 28.06.02 09:19
Hi, Ich hab mir eure Tips/Tricks Section angeschaut und ein Beispiel zum Speichern des Listview inhalts gefunden. Es funktioniert auch wunderbar, nur möchte ich nun das der User den Inhalt des Listviews in einem X-beliebigen Verzeichniss speichern kann. Dazu hab ich " Öffnen/Speichern-Dialog ohne ActiveX " gefunden. Nun weiss ich leider nicht wie ich es schaffe, das der User den Dateinamen aussuchen kann und das Verzeichniss indem er es speichern möchte. So sieht nun meine Prozedur aus, ich hoffe ihr könnt mir helfen... Function SpeichernDialog(Form2 As Form, strFilter As String, _ strTitel As String, strInitDir As String) As String Dim lngOpenFileName As OPENFILENAME Dim lngAnt As Long lngOpenFileName.lStructSize = Len(lngOpenFileName) lngOpenFileName.hwndOwner = Form2.hWnd lngOpenFileName.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 lngOpenFileName.lpstrFilter = strFilter lngOpenFileName.lpstrFile = Space$(254) lngOpenFileName.nMaxFile = 255 lngOpenFileName.lpstrFileTitle = Space$(254) lngOpenFileName.nMaxFileTitle = 255 lngOpenFileName.lpstrInitialDir = strInitDir lngOpenFileName.lpstrTitle = strTitel lngOpenFileName.flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or OFN_CREATEPROMPT lngAnt = GetSaveFileName(lngOpenFileName) If (lngAnt) Then SpeichernDialog = Trim$(lngOpenFileName.lpstrFile) Else SpeichernDialog = "" End If End Function Private Sub bsSpeichern_Click() SpeichernDialog Form2, _ "Excel Dateien (*.xls)|*.txt|Alle Dateien (*.*)|*.*", "Speichern...", "c:\" lvw_WriteData ListView1, App.Path & "Wochenbericht.xls" End Sub Gruß JP

Listview Inhalt speichern	48	Junior Proggi	28.06.02 09:19
VBEx32 macht's besser	222	Dieter	28.06.02 09:32
Ganz vergessen...	223	Dieter	28.06.02 09:33
Vielen Dank (oT)	28	Junior Proggi	28.06.02 10:32
Dateiende	28	Junior Proggi	28.06.02 10:37
Also doch VBEX32.DLL	236	Dieter	28.06.02 10:44
Danke ! (oT)	26	Junior Proggi	28.06.02 10:47

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