Mijn Documenten Map

[larszzie]

Hallo allemaal,
ik ben net begonnen met Visual Basic (2008 Express) en heb een paar vraag.
Ik zou willen dat mijn programma een txt bestandje opstaat in de mijn documenten. Nu ben ik er eindelijk achter hoe ik een documentje moet aanmaken op de harde schijf maar ik wil hem graag in mijn documenten plaatsen.
Ik heb nu dit:

 Private Sub SchrijfWachtwoord()

        Dim rNr As Integer = 1
[B][I][U]        Dim rNaam As String = "C:\Users\Lars\data.txt"[/U][/I][/B]
        Dim Data1 As String = ""
        Dim Data2 As String = ""
        Data1 = Form1.Label4.Text
        Data2 = Form1.Label3.Text

        Try
            FileOpen(rNr, rNaam, OpenMode.Output)
            PrintLine(rNr, Data1)
            PrintLine(rNr, Data2)


        Catch ex As Exception
            MsgBox("gegevens kunnen niet worden opgeslagen")
        Finally
            FileClose(rNr)
        End Try
    End Sub

Omdat daar natuurlijk niet iedereen zn mijn documenten zitten, zou ik graag willen dat hij die automatisch invult in het script.
Dus iets van

Dim rNaam As String = "<mijn documenten>\data.txt"

Alvast bedankt!

 

[The Mighty Atom]

        Dim rNaam As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\data.txt"

 

[larszzie]

        Dim rNaam As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\data.txt"

Heey Tnx.
Ga het zo proberen.
En wat is het dan voor De User map.
(dus C\Users\Jantje)
(sorry k ben weer lekker duidelijk )

Edit:
Heb het net geprobeerd maar het lukt niet.
Hij geeft "Gegevens kunnen niet worden opgeslagen" (zie "Catch ex As Exception")
Iemand een andere oplossing?

 

[The Mighty Atom]

Wat is de eigenlijke foutmelding?

En moet dit:

        Data1 = Form1.Label4.Text
        Data2 = Form1.Label3.Text

niet dit zijn:

        Data1 = Label4.Text
        Data2 = Label3.Text

Het kan nog korter:

        Dim Data1 As String = Label4.Text
        Dim Data2 As String = Label3.Text

 

[ReneDirks]

Als je deze regels

Catch ex As Exception
            MsgBox("gegevens kunnen niet worden opgeslagen")

nu even verandert in:

Catch ex As Exception
            MsgBox(ex.tostring)

Dan kun je tenminste de foutmelding zien en weet je wellicht ook meteen WAAROM er niet opgeslagen kan worden..

 

[larszzie]

Dankje wel dat je zo meedenkt!!!
Ik heb nog het een en ander geprobeerd en ben er uiteindelijk achter gekomen dat het /data.txt is ipv \data.txt
Ik vind dat altijd zo stom :evil: Ze zijn alebij schuin.
Voor de rest klopte alles hoor .
Maar weet je ook hoe je de map van de ingelogde gebruiker kan oproepen. dus C:/(of\ )/users/jantje ipv C:/users/jantje/documents/

Wat is de eigenlijke foutmelding?

En moet dit:

        Data1 = Form1.Label4.Text
        Data2 = Form1.Label3.Text

niet dit zijn:

        Data1 = Label4.Text
        Data2 = Label3.Text

Het kan nog korter:

        Dim Data1 As String = Label4.Text
        Dim Data2 As String = Label3.Text

 

[ReneDirks]

Probeer het eens met

dim strPath as string = system.Environment.GetEnvironmentVariable("USERPROFILE")

 

[larszzie]

Bedankt jongens!!!
Jullie hebben me een heel stuk verder geholpen. De oplossing van rene was uiteindelijk DE oplossing.