combining multiple files

[raghavrc]

Hi All,

I have 10 text files in one folder. I want combine selected files in to one text using access. Can any one help me on this?

Thanks in advance,
Raghav

**************** (e-mail removed as per site rules)

[ADezii]

Hi All,

I have 10 text files in one folder. I want combine selected files in to one text using access. Can any one help me on this?

Thanks in advance,
Raghav

[e-mail]

You can actually Shell out and use the DOS Copy Command to concatenate all 10 Files into 1 as in:

C:\copy File1.txt+File2.txt+File3.txt+File4.txt+File5.txt+File6.txt+File7.txt+File8.txt+File9.txt+File10.txt DestinationFile.txt

[peterhall]

Use the filesystemobject (needs a ref to MS scripting runtime) to create a ref to the folder.

eg

set fso = new filesystemobject
 
set folders = fso.getfolder . . . . .wherever it is
 
Then open a textstream object.
 
eg set file1 = fso.createtextstream

loop through the files in the folder and add the text to the ts object using file1.writeline

for each file in folder1
  ...add text lines to consolidating file
next file

[raghavrc]

You can actually Shell out and use the DOS Copy Command to concatenate all 10 Files into 1 as in:

C:\copy File1.txt+File2.txt+File3.txt+File4.txt+File5.txt+File6.txt+File7.txt+File8.txt+File9.txt+File10.txt DestinationFile.txt

Hi. thanks for your reply.
Now I will explain real situation in my request.
In the MS-Access form has multiple check boxes for each text file. All text files located in one signle folder. User will select the check boxes which he wants to combine. when the user click a command button it should create a new text file with all selected text files data.

I am new to access coding. I am working in Mainframes but having small work in access.

Thanks in advance,
Raghav

[ADezii]

Hi. thanks for your reply.
Now I will explain real situation in my request.
In the MS-Access form has multiple check boxes for each text file. All text files located in one signle folder. User will select the check boxes which he wants to combine. when the user click a command button it should create a new text file with all selected text files data.

I am new to access coding. I am working in Mainframes but having small work in access.

Thanks in advance,
Raghav

I'll work on it but give me a little time - I'm not really sure how to approach this.

[ADezii]

Hi. thanks for your reply.
Now I will explain real situation in my request.
In the MS-Access form has multiple check boxes for each text file. All text files located in one signle folder. User will select the check boxes which he wants to combine. when the user click a command button it should create a new text file with all selected text files data.

I am new to access coding. I am working in Mainframes but having small work in access.

Thanks in advance,
Raghav

I have arrived at a solution for you - will be posting it either later today or this evening.

[ADezii]

Hi. thanks for your reply.
Now I will explain real situation in my request.
In the MS-Access form has multiple check boxes for each text file. All text files located in one signle folder. User will select the check boxes which he wants to combine. when the user click a command button it should create a new text file with all selected text files data.

I am new to access coding. I am working in Mainframes but having small work in access.

Thanks in advance,
Raghav

Since you do work with Mainframes, and are not that familiar with Access, I took the most basic approach possible, Low Level File I/O Functions. Yes, believe it or not, they are still around and you don't have to worry about setting any References or what Version of Access you are running. I wrote the code for 3 Check Boxes (chkOne, chkTwo, and chkThree) but I am sure that that you will be able to produce the remaining code from these 3. Simply copy and paste this code into the Click() Event of a Command Button, rename any Controls and/or File Paths/Names as appropriate, and you are ready to go. It is not very elegant - but it is functional. Any further questions, feel free to ask.

'If none of the Check Boxes are Checked, get outta Dodge!
If Not Me![chkOne].Value And Not Me![chkTwo].Value And Not Me![chkThree].Value Then
  Exit Sub
End If
 
Dim strFilesPath As String, strSingleLine As String
Dim strDestFileName As String, intResponse As Integer
 
'Specify the Path to your Files here
strFilesPath = "C:\Test\"
strDestFileName = strFilesPath & "Destination.txt"      'Target File
 
If Dir$(strDestFileName, vbNormal) <> "" Then
  intResponse = MsgBox(strDestFileName & " already exists. DELETE this File?", _
                vbYesNo + vbQuestion + vbDefaultButton1, "DELETE Confirmation")
    If intResponse = vbYes Then
      Kill strDestFileName
    End If
End If
 
Open strDestFileName For Append As #255
 
'If this Check Box is selected, Append contents to Destination.txt
If Me![chkOne].Value Then
  Open strFilesPath & "Test1.txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, strSingleLine
      Print #255, strSingleLine
    Loop
    Close #1
End If
 
If Me![chkTwo].Value Then
  Open strFilesPath & "Test2.txt" For Input As #2
    Do While Not EOF(2)
      Line Input #2, strSingleLine
      Print #255, strSingleLine
    Loop
    Close #2
End If
 
If Me![chkThree].Value Then
  Open strFilesPath & "Test3.txt" For Input As #3
    Do While Not EOF(3)
      Line Input #3, strSingleLine
      Print #255, strSingleLine
    Loop
    Close #3
End If
 
 
Close #255

[raghavrc]

Thanks you very much! I will work on this code and let you know if I require any additional help on this.

Thanks again.

[FishVal]

Or something like this allowing user to select multiple files via FileDialog.
NB. "Microsoft Office xx.x Object Librar" has to be referenced

 
Private Sub btnPickFiles_Click()
 
Dim dlgPickFiles As Office.FileDialog
Dim strDestFilePath As String, strSingleLine As String
Dim strDestFileName As String, intResponse As Integer
 
Set dlgPickFiles = Application.FileDialog(msoFileDialogFilePicker)
 
With dlgPickFiles
.AllowMultiSelect = True
With .Filters
.Clear
.Add "Text file", "*.txt"
End With
.Show
End With
 
 
strDestFilePath = "C:\Test\"
strDestFileName = strFilesPath & "Destination.txt" 'Target File
 
If Dir$(strDestFileName, vbNormal) <> "" Then
intResponse = MsgBox(strDestFileName & " already exists. DELETE this File?", _
vbYesNo + vbQuestion + vbDefaultButton1, "DELETE Confirmation")
If intResponse = vbYes Then
Kill strDestFileName
End If
End If
 
Open strDestFileName For Append As #255
 
For Each FileSelected In dlgPickFiles.SelectedItems
 
Open FileSelected For Input As #1
Do While Not EOF(1)
Line Input #1, strSingleLine
Print #255, strSingleLine
Loop
Close #1
 
Next
 
Close #255
 
Set dlgPickFiles = Nothing
 
End Sub
 
 

Good luck.

PS. Destination file may be also choosed via FileDialog.