[Question] Save - File [VB2008]

[maclone]

        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.)
Und ich hab dir deinen Thread geklaut. (And I stole your thread.)

[marco1234]

Hello guys, ok. I got a question, does someone know how to do this.. I got a questmaker program.. Now I want that all results be saved in a SQL file, if you click on a button.. And you'll get a Save File menu where you can save the file in any Directory as SQL.

[marco1234]

        Dim saveSQL As New SaveFileDialog

        With saveSQL
            .AddExtension = True
            .FileName = "DateiName"
            .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">)

            Else
                'Code wenn abgebrochen wurde
            End If

        End With

Man hilft doch gern.
Und ich hab dir deinen Thread geklaut.

Thx +Rep

Edit: Muss noch "Spreaden"