28-10-12, 07:36 PM
بعد اذن الاستاذ الكبير ناجي ابراهيم
كود اخر يقوم بالمهمه
Private Sub Command1_Click()
Dim FileName As String
Dim f As Integer
FileName = "C:\README.TXT"
f = FreeFile 'Get a file handle
Open FileName For Input As f 'Open the file
Text1.Text = Input$(LOF(f), f) 'Read entire file into text box
Close f 'Close the file.
End Sub
كود اخر يقوم بالمهمه
Private Sub Command1_Click()
Dim FileName As String
Dim f As Integer
FileName = "C:\README.TXT"
f = FreeFile 'Get a file handle
Open FileName For Input As f 'Open the file
Text1.Text = Input$(LOF(f), f) 'Read entire file into text box
Close f 'Close the file.
End Sub