كيفية تصدير ما في الlist

أولاً : تصدير بيانات القائمة بملف بيانات :

Dim logLoop As Long

Open App.Path & "\Data.dat" For Append As#1

For logLoop = 0 To List1.ListCount - 1

Print#1,List1.List(logLoop)

Next

Close#1

ثانياً : إيجاد إسم الملف دون الإمتداد :

Dim strDir As String
strDir = Dir$(App.Path & "\Data\*.*")
Do While strDir <> ""
	List1.AddItem Left(strDir, InStr(strDir, ".") - 1)
	strDir = Dir$
Loop

شكراً

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

و فرج كربك