dotNETportal.cz

Dobrý den,

chtěl bych se zeptat jak vytvořit .txt soubor tam, kde by ji nebylo vidět(např. programfiles) Mám jej vytvořený v aplikaci v solution exploreru(je součástí aplikace). Zde je část kódu:

 Sub ctidata()
        Dim sr As New IO.StreamReader("database.txt") ' jde konkrétně o tento řádek, ve kterém je název   'hledaného souboru
        While Not sr.EndOfStream

            Dim jmeno As String = CStr(sr.ReadLine)
            Dim datum1 As String = CStr(sr.ReadLine)
            Dim datum2 As String = TextBox5.Text
            Dim pouzitelnedatum1 As String = (datum1(0)) & (datum1(1)) & (datum1(2)) & (datum1(3)) & (datum1(4)) & (datum1(5))
            Dim pouzitelnedatum2 As String = (datum2(0)) & (datum2(1)) & (datum2(2)) & (datum2(3)) & (datum2(4)) & (datum2(5))

            If pouzitelnedatum1 = pouzitelnedatum2 Then
                TextBox3.Text = jmeno
            End If
        End While
        sr.Close()

    End Sub

Děkuji za radu

tzn. že bych měl napsat

Dim cestaadr As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\MojeSlozka\")
dim sr as new io.streamreader(cestaadr)

?(pokud ano tak velmi děkuji za radu)