Zapisywanie pliku

[kirusie3]

Więc znowu zwracam się z pomocą do was napisałem kod , który  gdy nie ma pliku tworzy go i wpisuje do niego 2 linijki , a problem polega w tym że plik zapisuje się na pulpicie zamiast w folderze

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If File.Exists(Label1.Text + "\START.bat") Then
            Directory.CreateDirectory(Label1.Text + "\START.bat")
            File.Create(Label1.Text + "\START.bat")
        Else
            Dim START As String = Label1.Text + ("\START.bat")
            Dim i As Integer
            Dim aryText(1) As String

            aryText(0) = "java -Xmx1024M -jar bukkit.jar -o true"
            aryText(1) = "PAUSE"

            Dim objWriter As New System.IO.StreamWriter("START")

            For i = 0 To 1

                objWriter.WriteLine(aryText(i))

            Next

            objWriter.Close()
        End If
    End Sub

Czyli ma tworzyc się plik START.bat , w label1 jest napisana scieżka gdzie ma być ten plik

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Visible = false
        Label1.Text = Form1.TextBox2.Text

label bierze scieżke z textboxa z 1 formy (tam jest przycisk "browse") .