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

[www.pc3enter.tk]

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

[vbhamed]

سلام

برای اینکار باید با فایلها در ویژوال بیسیک کار کرده باشید
دستورات OPEN و Line Input و Print # و ...

Dim x$


Open "c:\1and2.txt" For Output As #3


Open "c:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, x
Print #3, x
Wend


Open "c:\2.txt" For Input As #2
While Not EOF(2)
Line Input #2, x
Print #3, x
Wend


Close #1, #2, #3


نکته اینکه با هر بار اجرای برنامه فایل 1and2.txt اگر چیزی داخلش باشه پاک میشه ولی اگر بخواین به انتهاش اضافه بشه باید به جای Output از Append استفاده کنید