This commit is contained in:
unknown 2015-09-25 17:13:29 -04:00
parent 7b8827dacc
commit 8ba9ac2eaf
1 changed files with 3 additions and 3 deletions

View File

@ -407,10 +407,10 @@ Function Stream_StringToBinary(Text, CharSet)
End Function
Function ReadBinaryFile(path)
Const adTypeText = 2
Const adTypeBinary = 1
Const adTypeText = 2
Const adTypeBinary = 1
dim inStream
dim inStream
dim myByte,myByteValue,myCharacter
set inStream=WScript.CreateObject("ADODB.Stream")