ادغام كردن همه فايلهاي txt به يك فايل txt

[svb411]

سلام
من مي خوام تمام فايلهاي txt در يك پوشه به يك فايل txt تبديل بشه مثلا من 10 تا فايل txt در يك پوشه دارم مي خوام با vb6 اين 10 تا فايلو به يك فايل txt تبديل كنم و از اون استفاده كنم

[SHD.NET]

سلام
این برنامه کل فایلهای موجود در درایو C رو برات توی فایل به نام All.txt سیو می کنه
سورس برنامه ضمیمه شد
Private Sub Form_Load()
File1.Path = "c:\"
a = -1
Open "c:\all.txt" For Output As #1
Close
For i = 0 To File1.ListCount - 1
a = a + 1
File1.ListIndex = a
If Right(File1.FileName, 4) = ".txt" Then
Open "c:\all.txt" For Append As #3
Print #3, vbCrLf + "*** " + File1.FileName; " ***"
Close
IFileNo = FreeFile
Dim sText As String
Open "c:\" + File1.FileName For Input As #1
Open "c:\all.txt" For Append As #2
Do Until (EOF(1) = True)
Input #1, a1
Print #2, a1
Loop
Close
End If
Next i

MsgBox "done"
End
End Sub


:چشمک:\\\موفق باشید///:چشمک:

[Darya1980]

سلام ، صبح بخیر
نحوه استفاده از این برنامه چطوری هست ؟؟؟