classfile.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

Public Class ClassFile
    Private FilePath As String
    Private FileName As String
    Property VFilePath()
        Get
            Return FilePath
        End Get
        Set(ByVal value)
            FilePath = value
        End Set
    End Property
    Property VFileName()
        Get
            Return FilePath
        End Get
        Set(ByVal value)
            FilePath = value
        End Set
    End Property


    Public Function ReadFile()
        Dim Kq As String = ""
        Dim Chuoi As String = ""
        Dim objStreamReader As IO.StreamReader
        Dim strLine As String
        Dim f As String = Me.FilePath + Me.FileName
        objStreamReader = New IO.StreamReader(f)
        strLine = objStreamReader.ReadLine
        Do While Not strLine Is Nothing
            'Write the line to the Console window.
            Chuoi = strLine
            Kq += Chuoi
            Kq += "/"
            strLine = objStreamReader.ReadLine
            'Thong tin moi dong duoc cach boi dau /
        Loop
        'Close the file.
        objStreamReader.Close()
        Return Kq
    End Function

End Class