Code:
Dim saveSQL As New SaveFileDialog
With saveSQL
.AddExtension = True
.FileName = "DateiName" '"filename"
.Filter = "SQL Files (*.sql) | *.sql*"
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
If File.Exists(.FileName) Then
File.Delete(.FileName)
End If
'Hier code zum speichern (Pfad ist <saveSQL.FileName & ".sql">) [Here code to save(Path is <saveSQL.FileName & ".sql">)]
Else
'Code wenn abgebrochen wurde [Code if action is canceled.]
End If
End With
Man hilft doch gern. (Glad to help.)