اطلب الاجابة على سؤالين لو تكرمتم يا اخوان

ممكن تعمل

On Error GoTo 2

kill "c:\001.txt"

2:

On Error GoTo 3

kill "c:\002.txt"

3:

On Error GoTo err

kill "c:\003.txt"

Err:

Exit Sub

End Sub

السلام عليكم

بالنسبة للسؤال الأول اذا كان عدد الأسماء قليل فاستخدم الكود التالي

Private Sub Form_Load()
	Dim FF As Long, lpLine As String
	FileName = " your file name"
	If Dir(FileName) = "" Then Exit Sub
	FF = FreeFile
	Open FileName For Input As FF
	   While Not EOF(FF)
		  Line Input #FF, lpLine
		  lpLine = Trim(lpLine)
		  If lpLine <> "" Then
			 List1.AddItem lpLine
		  End If
	   Wend
	Close FF
End Sub


Private Sub Text1_Change()
List1.ListIndex = getNameIndex(Text1.Text)
End Sub

Function getNameIndex(ByVal lpName)
getNameIndex = -1
lpName =lcase(lpName)
For i = 0 To List1.ListCount - 1
	If LCase(Left(List1.List(i), Len(lpName))) = lpName Then
	   getNameIndex = i
	   Exit For
	End If
Next
End Function

هذا يفي بالغرض لك بالوقت الحالي

اما بالنسبة للثاني

فتستطيع استخدام الجملة resume next هكذا

On Error GoTo Err
Kill "c:\001.txt"
Kill "c:\002.txt"
Kill "c:\003.txt"
Err:
resume next

او بهاذا الشكل

on error resume next
Kill "c:\001.txt"
Kill "c:\002.txt"
Kill "c:\003.txt"

وايضا يمكنك اضافة

if dir("c:\001.txt") then kill"c:\001.txt"

والله اعلم

اللهم صلي و سلم على سيدنا النبي الامي و بعد

فحياكم الله ايها الاخوة و بارك الله فيكم و احسن الله اليكم

اما بالنسبة للاخ MohamedAliSalim

فجزاك الله خيرا فاضفت لي معلومة جزاك الله خيرا

اما بالنسبة للاخ Mo7eb_Alrasool

فأعتثد انه استوفى السؤالان اسئل الله العلي العظيم رب العرش العظيم ان

يغفر له و يجعلها في ميزان حسناتة

و اشكر المنتدى على سرعة الاجابة من قبل اعضائة و القائمين

علية و هو في نظري من افضل المنديات على الشبكة

السلام عليكم

حياك الله اخوي HATEMHBC

اقتباس

اذا ادخلت في تيكست بوكس 2 كلمة محمد اريدها ان تحفظ في سطر جديد في الملف

تستطيع اضافة اسماء الي الملف

dim ff as long
ff=freefile
open filename for append as ff
print #ff,"mohamed"
close ff

بالنسبة للكود التالي

if dir("c:\001.txt") then kill"c:\001.txt"

فهويجب ان يكون كالتالي

if dir("c:\001.txt")<>""then kill"c:\001.txt"

السلام عليكم

كنت سأوضع النقطة الثانية في السؤال الاول لكنك

سبقتني

جزاك الله خيرا

dear my brother,

this sample programe may be a solution for you

please download the attachment and said to me about it

thank you

good bye

HATEMHBC.rar

Al Salam 3alekom w ra7mat allah w barakato

hiak allah akhi

Eslam Gamal Abdel Moaty Mohamed

shokran jazeelan lk ja3aloho allah fi mezan hsanatk

thank you very mack

Good Work