Binary Files and the File System Object Do Not Mix

re: Binary Files and the File System Object Do Not Mix

Gerardo Lima — Mon, 29 Mar 2010 14:43:15 GMT

The code described in [http://www.asp101.com/articles/jacob/scriptupload.asp] does the job just right for uploading files to a server using only vbscript and standard TextStream objects(1). The only catch is that it must run under the following page directive <%@ CODEPAGE="65001"; %>.

(1) as returned by fso.CreateTextFile;

re: Binary Files and the File System Object Do Not Mix

Kirby L. Wallace — Wed, 18 Nov 2009 22:37:25 GMT

I use FSO and ADO.Streams for most of my binary file ops already. But... A comment here...

The problem you seem to be describing here doesn't seem to have so much to do with the FileSystemObject, but rather with a quirky behaviour in the CHR() function. The fso seems to happily, and binarily, write your binary file without hesitation. It only broke down when you tried to make the CHR() function do something it isn't supposed to do.

Wouldn't an ADO stream have done the same thing with that same input?

re: Binary Files and the File System Object Do Not Mix

Michele Fiorantino — Mon, 11 May 2009 13:17:45 GMT

Scriptable Byte Array

Function CreateByteArray(nsize)

Dim sBin

Set sBin = CreateObject("Adodb.Stream")

sBin.Open

sBin.Type = 2 ' adTypeText = 2

sBin.WriteText String(nsize, Chr(0))

sBin.Position = 0

sBin.Type = 1 ' adTypeBinary

CreateByteArray = sBin.Read(nsize)

sBin.Close

End Function

re: Binary Files and the File System Object Do Not Mix

12demons — Wed, 16 Jul 2008 11:35:23 GMT

ups. Sorry ... a typo in the code. just replace:

strTransform[i] = strContent.charCodeAt(0);

into

strTransform[i] = strContent;

I use charCodeAt to play around with ASCII code .....

re: Binary Files and the File System Object Do Not Mix

12demons — Wed, 16 Jul 2008 11:32:31 GMT

hem. just test that FileSystemObject can be use to READ and WRITE binary file. only that you had to CHEAT a little. Instead of using ReadAll() just use recursice Read() to the file Size. a little snippet in JScript:

-- Code Start --

var objFileSystem = new ActiveXObject('Scripting.FileSystemObject');

var objFileIO = objFileSystem.GetFile('pack.exe');

var streamIO = objFileIO.OpenAsTextStream();

var strTransform = new Array();

for (i=0;i<objFileIO.Size;i++) {

var strContent = streamIO.Read(1);

strTransform[i] = strContent.charCodeAt(0);

}

streamIO.Close();

objFileIO = objFileSystem.CreateTextFile('dumb.exe', true);

for (i=0;i<strTransform.length;i++) { objFileIO.Write(strTransform[i]); }

objFileIO.Close();

-- Code End --

Basicaly copy pack.exe into Array then write Array into dumb.exe

Surprisingly both are identical and executable. Isn't strange?

All i need now is smart way to play with the Array ....

re: Binary Files and the File System Object Do Not Mix

William Shakespeare — Mon, 28 Apr 2008 12:02:19 GMT

If ADODB.Stream is a solution.

I dont know what is much ado aabout nothing means.

/****************************************************************************/

Option Explicit

Dim sServer, sDatabase, sUsername, sPassword

sServer = "servername"

sDatabase = "database"

sUsername = "username"

sUsername = "password"

Dim UDL

UDL = ReadBinaryFile("Old.udl")

UDL = SetValue(UDL, "Data Source", sServer)

UDL = SetValue(UDL, "Initial Catalog", sDatabase)

UDL = SetValue(UDL, "User ID", sUsername)

UDL = SetValue(UDL, "Password", sPassword)

UDL = SaveBinaryData("New.udl", UDL)

' =================================================================

' Function to read text from a binary (unicode) file

' =================================================================

Function ReadBinaryFile(FileName)

Const adTypeBinary = 1

Dim BinaryStream

Set BinaryStream = CreateObject("ADODB.Stream")

BinaryStream.Type = adTypeBinary

BinaryStream.Open

BinaryStream.LoadFromFile FileName

ReadBinaryFile = BinaryStream.Read

BinaryStream.Close

Set BinaryStream = Nothing

End Function

' =================================================================

' Function to write a modified string back to a unicode file

' =================================================================

Function SaveBinaryData(FileName, Text)

Const adTypeBinary = 1

Const adTypeText = 2

Const adSaveCreateOverWrite = 2

Dim BinaryStream

Set BinaryStream = CreateObject("ADODB.Stream")

BinaryStream.Type = adTypeBinary

BinaryStream.Open

With CreateObject("ADODB.Stream")

.Type = adTypeText

.Open: .WriteText Text

.Position = 2

.CopyTo BinaryStream, Len(Text) * 2

.Close

End With

BinaryStream.SaveToFile FileName, adSaveCreateOverWrite

BinaryStream.Close

Set BinaryStream = Nothing

End Function

' =================================================================

' Function replace semicolon delimited values in a unicode string

' =================================================================

Function SetValue(Data, Key, Value)

Dim Text, Prefix, Suffix, i

If Len(Value) = 0 Then

SetValue = Data

Else

'Drop leading character

Text = Mid(Data, 2)

i = InStr(Text, Key)

Prefix = Left(Text, i + Len(Key))

Suffix = Mid(Text, i + Len(Key))

i = InStr(Suffix, ";")

if i = 0 Then

Suffix = ""

Else

Suffix = Mid(Suffix, i)

End If

'Restore leading character and concatinate new value

SetValue = Left(Data, 1) + Prefix + Value + Suffix

End If

End Function

July 11, 2006 7:11 PM

/****************************************************************************/

re: Binary Files and the File System Object Do Not Mix

Ian Freeman — Tue, 12 Feb 2008 07:17:04 GMT

I came across newObjects' AXPack1 when I found out that Windows CE doesn't have FSO. It seems to have great support for Binary files. It's free too.

Check out this VBS sample:

Dim fso, file, BD, BoM

Set fso = CreateObject("newObjects.utilctls.SFMain")

Set file = fso.OpenFile(filename)

Set BD = CreateObject("newObjects.utilctls.SFBinaryData")

BD.Value = file.ReadBin(2) 'read first 2 bytes

BoM = BD.Data(0,1) 'convert first 2 bytes to byte array

file.Close()

bom now contains the byte order mark of filename in a VT_UI | VT_ARRAY byte array.

re: Binary Files and the File System Object Do Not Mix

Ben — Tue, 16 Oct 2007 20:09:42 GMT

Surely it is better to call it MBCS-land... and anyway, aren't we all in an MBCS land these days? Everything except the most basic of basic text files (that do not include any currency symbols other than the dollar sign ;-))

re: Binary Files and the File System Object Do Not Mix

Blue Streak — Thu, 24 May 2007 19:56:28 GMT

Try using an HTA or VBS file.

IE6 block dynamic content (i.e. scripts) in HTM, HTML files

re: Binary Files and the File System Object Do Not Mix

P.G. — Thu, 17 May 2007 10:09:26 GMT

I have ie6 on my machine. I tried using adodb.stream from vbs for manipulating

binary files. I understand that adodb.stream is not getting recognized and

I am unable to save or read binary files through this. any ideas??