here is the sub that i have got so far:
Public Sub combine_data()
Rem this sub combines are new data with the set txt file
Dim Newline As String
Open App.Path & "\Zipfiles\cutscan.txt" For Append As #1
Open App.Path & "\filesize\new1.txt" For Input As #2
Do Until EOF(2)
Line Input #2, Newline
**need something here**
Loop
End Sub
i am tring to add new1 to the end of cutscan, but as you can see i am missing a line or to, any help would be appreciated!
thanx
Will
Public Sub combine_data()
Rem this sub combines are new data with the set txt file
Dim Newline As String
Open App.Path & "\Zipfiles\cutscan.txt" For Append As #1
Open App.Path & "\filesize\new1.txt" For Input As #2
Do Until EOF(2)
Line Input #2, Newline
**need something here**
Loop
End Sub
i am tring to add new1 to the end of cutscan, but as you can see i am missing a line or to, any help would be appreciated!
thanx
Will
