Esiste un modo per concatenare 2 file binari in ASP?![]()
grazie in anticipo a chi mi risponde, posto un pò di codice (purtroppo in questo modo il file prova2.txt viene sovrascritto, io invece vorrei aggiungere alcuni byte alla fine) :
<%
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To get binary data.
BinaryStream.Type = adTypeBinary
'Open the stream
BinaryStream.Open
'Load the file data from disk To stream object
BinaryStream.LoadFromFile FileName
'Open the stream And get binary data from the object
ReadBinaryFile = BinaryStream.Read
End Function
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
b=SaveBinaryData (Server.MapPath("/public/prova2.txt"), ReadBinaryFile(Server.MapPath("prova.txt")))
%>Esiste un modo per concatenare 2 file binari in ASP?

Rispondi quotando