[VB.NET] Lettura di interi file di testo

[andreaciao_22]

salve a tutti,

stò facendo delle prove di lettura File in VB.Net.

Ho un programma in vb6 che crea un file txt "prova.txt", scrive "prova" all'interno del File e chiude il file...

La sub è questa:

Sub Main()
    Dim NumFile, strPercorsoFile, strCorpo
    NumFile = FreeFile
    strCorpo = "prova"
    strPercorsoFile = "C:\Programmi\SMS\Sms da Inviare\prova.txt"
    If Len(Trim$(Dir$(strPercorsoFile))) > 0 Then Kill strPercorsoFile
    Open strPercorsoFile For Append As #NumFile
    Print #NumFile, strCorpo
    Close #NumFile
End Sub

il problema nasce con vb.net in quanto quando vado a leggere il file mi restituisce "112" e non "prova" come è nel file.

Questa è la funzione di lettura:

    Function LeggiFile(ByVal PathFile As String) As String
        Dim StreamR As New System.IO.StreamReader(PathFile)
        Return StreamR.Read.ToString
    End Function

Questa funzione viene richiamata ogni volta che viene creato e modificato un file in "C:\Programmi\SMS\Sms da Inviare" (in questa cartella ci sono solo file txt) in quanto nel programma ho inserito un controllo FileSystemWatcher.

perchè succede ciò? c'è qualche soluzione?

grazie

OPS: HO SBAGLIATO A POSTARE... MI SPOSTATE IN VB.NET? GRAZIE

[MItaly]

La Read legge un singolo carattere. Devi usare la ReadToEnd.

    Function LeggiFile(ByVal PathFile As String) As String
        Dim tstr As String
        Dim StreamR As New System.IO.StreamReader(PathFile)
        tstr = StreamR.ReadToEnd()
        StreamR.Close()
        Return tstr
    End Function

[andreaciao_22]

grazie, funziona...

ora ho un'altro problema ma apro un altro post perchè è un problema diverso