Datei speichern mit dem CommonDialog Steuerelement VB-Version:  VB5, VB6
	Views:  12.016

Sie möchten, dass Ihr Programm den gewohnten Standard-Dialog zum Speichern von Dokumenten verwendet?

Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdSave) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code:

Private Sub cmdSave_Click()
  ' wird im "CommonDialog" auf "Abbrechen" geklickt,
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  Dim F As Integer
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    ' Hinweis, falls Datei bereits vorhanden
    ' weitere Flags-Eigenschaften finden Sie in der MSDN
    .Flags = cdlOFNOverwritePrompt
 
    ' Filter setzen - hier wird festgelegt, unter welchem 
    ' Format eine Datei gespeichert wird.
    .Filter = "Textdateien (*.txt)|*.txt"
 
    ' Dialogfeld Speichern anzeigen
    .ShowSave
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Output As #F
      Print #F, Text1.Text
      Close #F
    End If
  End With
End Sub

Schreiben Sie einen Text in die TextBox und klicken Sie anschließend auf den CommandButton. Sie können diesen Text jetzt als Textdatei abspeichern.