السلام عليكم و رحمة والله و تعالى و بركاته
لنفرض ان لدي زرين.
الزر الاول يعرض لي ملفات مجلد تم تحديده في list
وزر الثاني يقوم بتحرير احد الملفات المحددة في List1
ما هو الكود المستعمل لتحرير عنصر محدد من List1
هده هي محاولتي
Dim sFileData As String
Dim x As Integer
x = 0
Do While x <= List1.ListCount - 1
If List1.Selected(x) = True Then
Open List1.List(x) For Input As #1
sFileData = Input$(LOF(1), 1)
Text1.Text = sFileData
End If
x = x + 1
Loop
المرجو المساعدة