Re: Creating one file out of many, including the filename

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

John - hoe exactly do I run this code in access? Sorry Iam new to a lot of
this, so please bear with me. Do I create a new macro?
Thanks
Gary

"John Nurick" wrote:

> Excel offers no advantage. It's necessary to write code open each file
> individually, read it a line at a time, add the file name, and then
> write the modified line to the new file.
>
> Here is a VBScript from my library that does the job for a single file
> and could be modified (sorry, I'm late for the day job and can't do it
> myself) to process multiple files (and to run in Access VBA).
>
> =========================START OF VBScript
> 'Prepend FN.vbs: adds the filename to each line of the file
> 'VBScript
> 'Call from commandline as
> ' [cscript] Prepend.vbs InFile OutFile
>
> Option Explicit
>
> Dim fso 'As FileSystemObject
> Dim fIn 'As TextStream
> Dim fOut 'As TextStream
> Dim strLine 'As String
> Dim strFileName 'As String
> Dim DELIM 'As String
>
> DELIM = "," 'String to separate the Filename
> 'from the rest of the line. Change this
> 'as needed: e.g. to Chr(9) for Tab
>
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set fIn = fso.OpenTextFile(WScript.Arguments(0))
> Set fOut = fso.CreateTextFile(WScript.Arguments(1))
> strFileName = WScript.Arguments(0)
>
> Do Until fIn.AtEndOfStream
> fOut.Write strFileName & DELIM & strLine
> Loop
>
> fIn.Close
> fOut.Close
> ===================END OF VBScript
>
> And here (this is why I prefer Perl for little utilities) is a Perl
> script that does handle multiple files:
>
> ===================START OF CODE
> #PrependFN.pl
> #Usage:
> # perl PrependFN.pl Infilespec Outfile
> #
> #Infilespec can be a wildcard filespec.
>
> $outfile = pop @ARGV;
> open OUTFILE, ">$outfile" or die "Couldn't open $outfile";
>
> foreach $file (<$ARGV[0]>) {
> open INFILE, $file or die "Couldn't open $file";
> while(<INFILE>) {
> print OUTFILE qq("$file",$_)
> }
> }
> ===================END OF CODE
>
>
> On Tue, 20 Sep 2005 10:50:03 -0700, ktm400
> <ktm400@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
>
> >I have several hundred .csv files that Iam trying to combine in one file. I
> >can simply use the dos copy command to create a new file with the contents of
> >all these other files, but the problem with that is i cannot identify which
> >file is which in the new file.
> >Is there a way to do this with excel?
> >Thanks for any help
>
> --
> John Nurick [Microsoft Access MVP]
>
> Please respond in the newgroup and not by email.
>
>
.

Relevant Pages