• Home
 · 
• Files/File Controls/Input/Output
 · 
• Combine Text Files

Combine Text Files

I wrote this prgram to augment MRTG (Multi Router Traffic Grapher). Each night i generate new configuration files for all my routers, when that finishes this program combines all the files into one primary configuration file. Please Vote if you like it! :)

Rate Combine Text Files

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Dim sdir, string1, string2
sdir = Dir("\\hurricane\c$\newrouters\*.cfg")
Open "c:\windows\desktop\mrtgcfg.cfg" For Output As #1
Do While sdir <> ""
 Open "\\hurricane\newrouters\" & sdir For Input As #2
 Do While Not EOF(2)
 Line Input #2, string1
 Print #1, string1
 Loop
 Debug.Print sdir
 Close #2
 sdir = Dir()
Loop
Close #1