[2008] Saving a file

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

Code:

---

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.

Hey,

Have a look at this post here.

Hopefully this should help you out.

Gary

try this. Pino's code was vb6 code.

vb 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

Thanks again.

Quote:

---

Originally Posted by TimeCode

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

Code:

---

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:

Code:

---

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

---