[Visual basic 2010 Express]"Imports System.IO.File"

[Golden(Axe)]

Con lintenzione di creare un "progrmma di testo" ho scritto un piccolo codice basic da ampliare in una applicazione più corposa in un secondo momento

Imports System.IO.File


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim disco As System.IO.File
        Dim scrivi As System.IO.StreamWriter
        scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
        scrivi.WriteLine("ciao a tutti")
        scrivi.WriteLine(TextBox1.Text)
        MsgBox("file creato con sucesso")
        scrivi.Close()
    End Sub
End Class

Questo piccolo listato serve a scrivere un teso nel percorso c:\Users\Golden(Axe)\Desktop come si evince alla riga:

scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")

il form è composto da un button1 e una textbox come si evince dalla funzione

 
scrivi.writeline(textbox1.text)

Il codice credo sia esatto,ma il programma non mi scrive nulla e non mi da errori nel debug,la msgbox funziona.
edit:
il codice nelle prima cartella code si formatta automaticamente dopo la pubblicazione,problema del forum?

lo riscrivo senza tabella code:
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim disco As System.IO.File
Dim scrivi As System.IO.StreamWriter
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
scrivi.WriteLine("ciao a tutti")
scrivi.WriteLine(TextBox1.Text)
MsgBox("file creato con sucesso")
scrivi.Close()
End Sub
End Class

scusate

[Golden(Axe)]

Ho risolto da un pezzo si può anche chiudere