Converting several binary files into one

ASP Free Forums Sponsor:

August 6th, 2008, 08:17 PM

Hangman

Registered User

Join Date: Jul 2008

Posts: 29

Time spent in forums: 6 h 56 m 6 sec
Reputation Power: 0

VBScript - Converting several binary files into one

Good afternoon,

I am wondering how I would put a script together that would take several binary files, and copy them into one file.
Using DOS, I normally type this out like so;

Code:

copy /b file01.wav+file02.wav+file03.wav OneFile.wav

with my script, I got to this point:

Code:

'Initialization Section

Option Explicit
Const cTitle = "Binary File Conversion Wizard"
Dim objFSObject, objFolder, file, strFileList
Set objFSObject = CreateObject("Scripting.FileSystemObject")

'Main Processing Section

objFolder = InputBox("Enter directory where Binary files are found: ", cTitle)
Set objRootDir = objFSObject.GetFolder(objFolder)

'Procedure Section

For Each file In objRootDir.Files
   file.copy /b 
Next

and realized, I don't know how I would make this work properly.
How would you make something like this work ??

Code:

 file.copy /b file & "+" & file & "+" & ...

August 7th, 2008, 03:35 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Folding Points: 206875 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

Perhaps the easiest way is to use the same concept. VBS can grab the file names and dynamically create your command line.

vb Code:

Original - vb Code

Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
 
'Main Processing Section
 
strFolder = InputBox("Enter directory where Binary files are found: ", cTitle)
Set objRootDir = objFSObject.GetFolder(strFolder)
 
'Procedure Section
 
For Each file In objRootDir.Files
   strFiles = strFiles & file.Name & "+"
Next
 
strFiles = Left(strFiles, Len(strFiles) - 1)
 
strCommand = "copy /b " & strFiles & " OneFile.wav"
 
WshShell.Run strCommand,, True

The more "programmatic" approach of doing this would involve reading and writing actual binary streams.

vb Code:

Original - vb Code

Set objFso = CreateObject("Scripting.FileSystemObject")
strFolder = InputBox("Enter directory where Binary files are found: ", cTitle)
Set objRootDir = objFSO.GetFolder(strFolder)
 
Const adTypeBinary = 1
Set objOStream = CreateObject("ADODB.Stream")
objOStream.Type = adTypeBinary
objOStream.Open
 
For Each objFile In objRootDir.Files
    objOStream.Write ReadByteArray(objFile.Path)
Next
 
objOStream.Close
objOStream.SaveToFile "OneFile.wmv"
 
Function ReadByteArray(strFile)
    Set objIStream = CreateObject("ADODB.Stream")
    With objIStream
        .Type = adTypeBinary
        .Open
        .LoadFromFile strFile
        ReadByteArray = .Read
    End With
End Function

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

Last edited by Nilpo : August 12th, 2008 at 06:18 AM.

August 7th, 2008, 05:27 PM

Hangman

Registered User

Join Date: Jul 2008

Posts: 29

Time spent in forums: 6 h 56 m 6 sec
Reputation Power: 0

Quote:

Originally Posted by Nilpo

Perhaps the easiest way is to use the same concept. VBS can grab the file names and dynamically create your command line.

vb Code:

Original - vb Code
For Each file In objRootDir.Files strFiles = strFiles & file.Name & "+" Next

 
For Each file In objRootDir.Files
   strFiles = strFiles & file.Name & "+"
Next

I eventually figured this part (above) out, although it took me a bit of time in research. It was the file.Name that was throwing me.

vb Code:

Original - vb Code
strFiles = Left(strFiles, Len(strFiles) - 1) strCommand = "copy /b " & strFiles & " OneFile.wav" WshShell.Run strCommand,, True

 
strFiles = Left(strFiles, Len(strFiles) - 1)
strCommand = "copy /b " & strFiles & " OneFile.wav"
WshShell.Run strCommand,, True

And this part (above) is the other piece I was really struggling with. I like the way you made the WshShell.Run command work.

I am understanding most of what is coded here. What it does and how it works. I am however, at a loss for the 'Left ... ' you have in the strFiles line. What does that do ??

The rest of the stuff below is gibberish at the moment. I have a lot more to read up on before I will understand any of that. Although it looks good.

Quote:

Originally Posted by Nilpo

The more "programmatic" approach of doing this would involve reading and writing actual binary streams.

vb Code:

Original - vb Code

Set objFso = CreateObject("Scripting.FileSystemObject")
strFolder = InputBox("Enter directory where Binary files are found: ", cTitle)
Set objRootDir = objFSO.GetFolder(strFolder)
 
Const adTypeBinary = 1
Set objOStream = CreateObject("ADODB.Stream")
objOStream.Type = adTypeBinary
objOStream.Open
 
For Each objFile In objRootDir.Files
    objOStream.Write ReadByteArray(objFile.Path)
Next
 
objOStream.Close
objOStream.SaveToFile "OneFile.wmv"
 
Function ReadByteArray(strFile)
    Set objIStream = CreateObject("ADODB.Stream")
    With objIStream
        .Type = adTypeBinary
        .Open
        .LoadFromFile strFile
        ReadByteArray = .Read
    End With
End Function

Last edited by Nilpo : August 12th, 2008 at 06:18 AM.

August 7th, 2008, 06:58 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

Left is a VBS function that returns the leftmost portion of a string for a given number of characters. I'm using it to strip off an extra + character at the end of the string if filenames. Here's the same code commented. This should help.

vb Code:

Original - vb Code

Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
 
'Main Processing Section
 
strFolder = InputBox("Enter directory where Binary files are found: ", cTitle)
Set objRootDir = objFSObject.GetFolder(strFolder)
 
'Procedure Section
 
'Create a string of file names separated by a + sign.
For Each file In objRootDir.Files
    'append current file name to the end of string of names
    strFiles = strFiles & file.Name & "+"
Next
'strFiles is something like:
' file1.wmv+file2.wmv+file3.wmv+
 
'Remove the extra + by returning the length of the string minus 1 character
strFiles = Left(strFiles, Len(strFiles) - 1)
 
'Construct a DOS copy command.
strCommand = "copy /b " & strFiles & " OneFile.wav"
 
'Execute the command like typing it in the Run... dialog box
WshShell.Run strCommand,, True

Last edited by Nilpo : August 12th, 2008 at 06:18 AM.

August 7th, 2008, 07:13 PM

Hangman

Registered User

Join Date: Jul 2008

Posts: 29

Time spent in forums: 6 h 56 m 6 sec
Reputation Power: 0

Ahhh, very nice indeed. Thank you Nilpo.
I can think of what I want, (basically what you had put down in the code), but I can't get it onto paper yet.
Thank you very much for the instruction.

August 7th, 2008, 07:38 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

Quote:

Originally Posted by Hangman

Ahhh, very nice indeed. Thank you Nilpo.
I can think of what I want, (basically what you had put down in the code), but I can't get it onto paper yet.
Thank you very much for the instruction.

No problem. It takes a little time.