انتقال اطلاعات تکست ها در یک تکست

[xrezax]

دوستان یک پوشه دارم که توش پر هست txt هست.
چطور میشه کاری کرد توی برنامه که همه محتویات آنهارو (تمام txt های موجود در آن پوشه) توی یک تکست بنام reza.txt کپی کنه و باقی همه رو پاک کنه و فقط رضا بمونه.

[SlowCode]

سلام
اول باید تمام فایلهای تکست داخل پوشه رو پیدا کنی بعد یکی یکی بازشون میکنی و محتویاتش رو داخل یه تکست دیگه به نام Reza.txt میریزی بعد حذفشون میکنی.
نکته: فایل Reza.txt رو وقتی باز میکنی باید به طور Append بازش کنی تا بتونی متنها رو بهش اضافه کنی، اگه Output باز کنی مطالب قبلی حذف میشن.

[xrezax]

میشه سورسی در این رابطه بزارین ممنون میشم

[SlowCode]

بله بفرما:

Dim strText,f as String
f = Dir("C:\", vbNormal)
While f <> ""
If LCase(Right(f, 3)) = "txt" Then
Open "C:\" & f For Input As #1
strtext = Input(LOF(1), 1)
Close
Kill "C:\" & f
Open "C:\Reza.txt" For Append As #2
Print #2, strtext
Print #2, "**************************"
Close
End If
f = Dir()
If f = "Reza.txt" Then f = Dir()
Wend