Private Sub speichern_Click()
    Dim Pfad As String
    ' Registry auslesen:
    Pfad = GetSetting(App.EXEName, "Datei", "Pfad", "")
 
On Error Resume Next
    With CommonDialog1
        .DialogTitle = "Datei Speichern"
        .CancelError = True
        .InitDir = Pfad
        .Flags = &H2000 And &H800 And &H2 ' neue Datei, existierender Pfad, 
        ' Überschreiben
        .Filter = "Textdateien (*.txt)|*.txt"
        .ShowSave
 
         Dim lvw As ListView
         Dim sDatafile As String
         lvw_WriteData ListView1, CommonDialog1.InitDir
         ' Registry schreiben:
         SaveSetting App.EXEName, "Datei", "Pfad", Pfad
    End With
End Sub

fg viperbone