vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Nur bestimmte Dateien speichern und öffnen. 
Autor: tischler
Datum: 18.01.07 21:10
Hallo BAStler,

wie kann ich es erreichen, das ich eine über showopendlg geöffnete Datei,
die ich weiter bearbeitet habe, unter showsavedlg mit gleichen namen ab-
speichern kann. Der Name soll schon im Dialogfenster unter Dateiname ange-
zeigt werden.

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
Dim strDateiname As String
strDateiname = Space(255)
strDateiname = "Beispiel.qpy" 'hier wird im Dialog Dateiname: Beispiel angezeigt
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 = strDateiname ' Hier übergebe ich den o.a. Namen der Datei .nMaxFile = 256
.nMaxFileTitle = Len(strDateiname)
.lpstrTitle = strTitel
.flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or OFN_CREATEPROMPT

lngAnt = GetSaveFileName(lngOpenFileName)
ShowSaveDlg = .lpstrFileTitle
'End If
End With
End function

Besten Dank.
mfg bruno
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Nur bestimmte Dateien speichern und öffnen.1.356Brauner25.12.06 10:55
Re: Nur bestimmte Dateien speichern und öffnen.797BAStler25.12.06 11:08
Re: Nur bestimmte Dateien speichern und öffnen.727Brauner25.12.06 11:29
Re: Nur bestimmte Dateien speichern und öffnen.754Brauner25.12.06 11:37
Re: Nur bestimmte Dateien speichern und öffnen.706TTSAddict25.12.06 15:40
Re: Nur bestimmte Dateien speichern und öffnen.714Brauner25.12.06 18:38
Re: Nur bestimmte Dateien speichern und öffnen.774Brauner25.12.06 20:03
Re: Nur bestimmte Dateien speichern und öffnen.759BAStler25.12.06 20:38
Re: Nur bestimmte Dateien speichern und öffnen.791Brauner26.12.06 16:32
Re: Nur bestimmte Dateien speichern und öffnen.915BAStler27.12.06 09:11
Re: Nur bestimmte Dateien speichern und öffnen.710BAStler27.12.06 10:42
Re: Nur bestimmte Dateien speichern und öffnen.727Brauner27.12.06 18:59
Re: Nur bestimmte Dateien speichern und öffnen.725Brauner27.12.06 19:26
Re: Nur bestimmte Dateien speichern und öffnen.716BAStler27.12.06 21:22
Re: Nur bestimmte Dateien speichern und öffnen.654Brauner28.12.06 20:00
Re: Nur bestimmte Dateien speichern und öffnen.668tischler02.01.07 21:41
Re: Nur bestimmte Dateien speichern und öffnen.750BAStler03.01.07 13:21
Re: Nur bestimmte Dateien speichern und öffnen.742Brauner03.01.07 15:34
Re: Nur bestimmte Dateien speichern und öffnen.699BAStler04.01.07 09:02
Re: Nur bestimmte Dateien speichern und öffnen.721Brauner04.01.07 16:22
Re: Nur bestimmte Dateien speichern und öffnen.702BAStler05.01.07 07:59
Re: Nur bestimmte Dateien speichern und öffnen.677tischler20.01.07 23:21
Re: Nur bestimmte Dateien speichern und öffnen.663tischler18.01.07 21:10
Re: Nur bestimmte Dateien speichern und öffnen.720BAStler19.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel