Textdatei Speichern

[vierkant]

Hallo!
Ich möchte den Inhalt einer Textbox in einer "TXT Datei abspeichern folgender code macht mir dies:

Dim fileno As Integer, filename As String
        fileno = FreeFile()
        Dim tFileOpen As New System.Windows.Forms.SaveFileDialog
        With tFileOpen
            .CheckPathExists = True
            .DefaultExt = "txt"
            .ShowHelp = False
            .FileName = "Manschaft"
            .Title = "Bitte Datei wählen"
            .Filter = "Textdateien|*.txt"
            Select Case .ShowDialog
                Case Windows.Forms.DialogResult.OK
                    filename = .FileName
                Case Windows.Forms.DialogResult.Cancel
                    Exit Sub
            End Select
        End With
        FileOpen(fileno, filename, OpenMode.Output, OpenAccess.Write, OpenShare.LockWrite)
        PrintLine(fileno, TextBox1.Text)

        FileClose(fileno)

Was muss ich bei diesem Code ändern damit die Datei ohne "Speicher Dialog" Automatisch abgespeichert wird?
Sodas nach einem Buttonklick automatisch im Ordner "C:Programme/meineAnwendung" die Datei "Manschaft.txt" liegt - und sollte diese Datei schon vorhanden sein sollte sie automatisch überschrieben werden!
Ich hoffe mir kann jemand helfen.
Dank im Vorraus und beste Grüße Jürgen

[Jürgen Thomas]

Ganz einfach: Benutze File.WriteAllText(Dateiname, Inhalt) und verzichte auf das ganze Drumherum. (Die statischen Read-/Write-Methoden der File-Klasse sind sehr oft das einfachste Verfahren.)

Lediglich beim Verzeichnis solltest du auf Schreibrechte unter XP, Vista, Win7 achten und vorzugsweise SpecialFolder.(Common)ApplicationData verwenden.

Jürgen

[vierkant]

hmmm

Ja aber wie? Steh da jetzt daneben! Bin leider absoluter Anfänger!
Kannst mir bitte helfen?
Gruß Jürgen

[gfoidl]

Ja aber wie? Steh da jetzt daneben! Bin leider absoluter Anfänger!
Kannst mir bitte helfen?
Gruß Jürgen

http://lmgtfy.com/?q=File.WriteAllText


mfG Gü