Txt Dosya Okutma

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"))