[2008] Saving a file

[TimeCode]

It's me again, this time I need help about this:

Dim txtBox As String

On Error GoTo handler:

Open (App.Path & "\myfile.ext") For Output As #1

        If MsgBox("WARNING: This will overwrite your actual file! Are you sure?", vbOKCancel) = vbCancel Then
                    Exit Sub
        End If
        
        txtBox = txtData.Text
        Print #1, txtBox
        
Close #1

Exit Sub

handler: txtData.Text = "Error on saving"

This code (I got it from Pino's signature) saves a file as myfile.ext when I click the button, but it doesn't work for VB 2008. Can someone convert it please? Thanks again.

[gep13]

Hey,

Have a look at this post here.

Hopefully this should help you out.

Gary

[.paul.]

try this. Pino's code was vb6 code.

If MessageBox.Show("WARNING: This will overwrite your actual file! Are you sure?", "Save?.....", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False) = DialogResult.OK Then
   Dim sw As New IO.StreamWriter(My.Application.Info.DirectoryPath & "\myfile.ext")
   sw.Write(txtData.Text)
   sw.Close()
End If

[TimeCode]

Thanks again.

[obi1kenobi]

It's me again, this time I need help about this:

Dim txtBox As String

On Error GoTo handler:

Open (App.Path & "\myfile.ext") For Output As #1

        If MsgBox("WARNING: This will overwrite your actual file! Are you sure?", vbOKCancel) = vbCancel Then
                    Exit Sub
        End If
        
        txtBox = txtData.Text
        Print #1, txtBox
        
Close #1

Exit Sub

handler: txtData.Text = "Error on saving"

This code (I got it from Pino's signature) saves a file as myfile.ext when I click the button, but it doesn't work for VB 2008. Can someone convert it please? Thanks again.

Pino's code was VB6 as paul noted. I'd also replace the On Error statement since it involves a GoTo and that needs an Exit Sub. I'd rewrite it like this:

Try
    If MessageBox.Show("WARNING: This will overwrite your actual file! Are you sure?", "Save?.....", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False) = DialogResult.OK Then
        Dim sw As New IO.StreamWriter(My.Application.Info.DirectoryPath & "\myfile.ext")
        sw.Write(txtData.Text)
        sw.Close()
    End If 
Catch
    txtData.Text = "Error on saving"
End Try