20-04-13, 02:39 AM
السلام عليكم
- إستخدم هذا الكود وضعه في الزر الذي يضع محتوى الملف في التكست بوكس :
- تحياتي .
- إستخدم هذا الكود وضعه في الزر الذي يضع محتوى الملف في التكست بوكس :
كود :
If Trim$(List1.Text) <> "" Then
If Dir$(Trim$(List1.Text)) <> "" Then
Dim F As Integer
F = FreeFile
Open Trim$(List1.Text) For Input As #F
Text1.Text = Input$(LOF(F), F)
Close #F
Else
MsgBox "الملف غير موجود"
End If
Else
MsgBox "حدد الملف في اللست بوكس"
End If- تحياتي .