Как открыть файл в режиме Binary в VBScript`e?
Пишу на ASP (VBScript), там чтобы получить доступ к файлу нужно создавать объект FSO:
У этого объекта есть метод открытия файла для чтения/записи:
Мне нужно открыть файл в бинарном режиме (а именно jpg файл), но тут нету такого режима.
Подскажите пожалуйста - как открыть файл в бинарном режиме?
Заранее благодарен!
Код:
Set FSO = CreateObject("Scripting.FileSystemObject")
У этого объекта есть метод открытия файла для чтения/записи:
Код:
OpenTextFile(<Filename>,<Iomode>,<Create>,<Format>)
Параметры:
<Filename> - строка, путь к файлу.
<Iomode> - необязательный, число. Возможные значения:
1 - Открыть файл только для чтения.
2 - Открыть файл для записи. Если файл уже существовал, его содержимое теряется.
8 - Открыть файл для добавления. Если файл уже существовал, информация будет дописываться в конец файла.
<Create> - необязательный, булево (число). Создавать файл, если он не существует (True), или нет (False). По умолчанию - False.
<Format> - необязательный, число. Возможные значения:
-2 - Открыть файл в формате, используемом системой по умолчанию.
-1 - Открыть файл в формате Unicode.
0 - Открыть файл в формате ASCII (по умолчанию).
Параметры:
<Filename> - строка, путь к файлу.
<Iomode> - необязательный, число. Возможные значения:
1 - Открыть файл только для чтения.
2 - Открыть файл для записи. Если файл уже существовал, его содержимое теряется.
8 - Открыть файл для добавления. Если файл уже существовал, информация будет дописываться в конец файла.
<Create> - необязательный, булево (число). Создавать файл, если он не существует (True), или нет (False). По умолчанию - False.
<Format> - необязательный, число. Возможные значения:
-2 - Открыть файл в формате, используемом системой по умолчанию.
-1 - Открыть файл в формате Unicode.
0 - Открыть файл в формате ASCII (по умолчанию).
Мне нужно открыть файл в бинарном режиме (а именно jpg файл), но тут нету такого режима.
Подскажите пожалуйста - как открыть файл в бинарном режиме?
Заранее благодарен!
я лично в ВБСкрипте никак, но вот что удалось найти:
вся статейка здесь http://www.motobit.com/tips/detpg_read-write-binary-files/
Код:
SaveBinaryData Function SaveBinaryData(FileName, ByteArray)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Type = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write ByteArray
'Save binary data To disk
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Type = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write ByteArray
'Save binary data To disk
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function
вся статейка здесь http://www.motobit.com/tips/detpg_read-write-binary-files/
Спасибо! То что надо.