Online ForummHoş geldin, Misafir.
Son Ziyaretiniz:
Mesaj Sayınız: 0


    Txt Dosya Okutma

    Paylaş

    Admin
    Admin
    Admin

    Aktiflik :
    999 / 999999 / 999

    Cinsiyet : Erkek
    Mesaj Sayısı : 136
    Rep Gücü : 1000719
    Rep Puanı : 2
    Kayıt tarihi : 19/02/11
    Yaş : 20
    Nerden : Diyarbakır

    yeni Txt Dosya Okutma

    Mesaj tarafından Admin Bir Salı Haz. 28, 2011 1:04 pm

    Txt Dosya Okuma

    --------------------------------------------------------------------------------

    Kod:
    Function TxtOku(TxtYol As String) As String
    '// Ricky
    Dim sRet As Integer
    sRet = FreeFile
    Open TxtYol For Input As sRet
    TxtOku = Input(LOF(sRet), sRet)
    Close sRet
    End FunctionÖrnek Olarak

    Kod:
    Label1.Caption = TxtOku(("C:\Deneme.txt"))

      Forum Saati Cuma Ara. 09, 2016 9:38 am