append data in txt file

[sal21]

I have in a dir c:\myfile\ many txt file.
Is possible to open one and append from the last free line a new data, save it, close and exit...
Thah is all

[HansV]

Do you want to append the same text to all files?

[sal21]

Do you want to append the same text to all files?

Sorry me... but this is a stupid question, i know well this method, tks Hans.

[HansV]

So you'll work it out for yourself?

[sal21]

So you'll work it out for yourself?

YES i can make the code myself, tks for assitence

[sal21]

So you'll work it out for yourself?

sorry if i post on old th3d...

but really no!

with command in CICS procedure i select many report (Are all a txt file) approx 10/12

from a similar loop for next in CICS command i send to c:\mydir\a.txt, c:\mydir\b.txt, c:\mydir\c.txt, ... ecc until the 12Th file is created.

The file are little dimension approx 900 kb

during the loop a need to append from the fist file saved, for example c:\mydir\a.txt, the subsequent other file...

example:

c:\mydir\a.txt is finished, append to the atxt the b.txt, the b.txt is finished append c.txt ecc...

note:
with a code i can test when the job of txt is finished

[HansV]

You could use the following macro:

Code: Select all

Sub AppendFiles(strFile1 As String, strFile2 As String)
   ' Run the DOS Copy command to append the text files.
   Shell "command.com /c copy """ & strFile1 & """+""" & _
       strFile2 & """ """ & strFile1 & """ /b"
End Sub

Call it like this:

AppendFiles "C:\MyDir\a.txt", "C:\MyDir\b.txt"
AppendFiles "C:\MyDir\a.txt", "C:\MyDir\c.txt"
...

[sal21]

You could use the following macro:

Code: Select all

Sub AppendFiles(strFile1 As String, strFile2 As String)
   ' Run the DOS Copy command to append the text files.
   Shell "command.com /c copy """ & strFile1 & """+""" & _
       strFile2 & """ """ & strFile1 & """ /b"
End Sub

Call it like this:

AppendFiles "C:\MyDir\a.txt", "C:\MyDir\b.txt"
AppendFiles "C:\MyDir\a.txt", "C:\MyDir\c.txt"
...

OPS!!!

[HansV]

Does this work?

Code: Select all

Sub AppendFiles(strFile1 As String, strFile2 As String)
   ' Run the DOS Copy command to append the text files.
   Shell "cmd /c copy """ & strFile1 & """+""" & _
       strFile2 & """ """ & strFile1 & """ /b"
End Sub

[sal21]

Does this work?

Code: Select all

Sub AppendFiles(strFile1 As String, strFile2 As String)
   ' Run the DOS Copy command to append the text files.
   Shell "cmd /c copy """ & strFile1 & """+""" & _
       strFile2 & """ """ & strFile1 & """ /b"
End Sub

WORK PERFECT!!!!!!!!!!!!!!!!!!!!!

but if i'm wrong i have see for one sec a msdos windows, possible?

if yes possible to suppress?

[HansV]

Try

Code: Select all

Sub AppendFiles(strFile1 As String, strFile2 As String)
   ' Run the DOS Copy command to append the text files.
   Shell "cmd /c copy """ & strFile1 & """+""" & _
       strFile2 & """ """ & strFile1 & """ /b", vbHide
End Sub