中科新闻网双流机场到郫县大巴:有关FSO操作文件的问题！
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 22:21:42
因为没有ADO.STREAM才这么做的！
令客户先把数据转为HEX形式，提交HEX格式的数据（就是像“616263646566”表示“abcdef”的），服务器处理后还原为文件。
但不知为什么，我试着这样传了一个不大的应用程序tftp.exe，虽然大小没有问题，但显然内容不对，程序和原来不一样了！
谁能解决？
程序是这样的，DATA里是系统自己的tftp.exe。
如果去掉msgbox前的注释，看到的东西对着WINHEX看是正确的！
但去掉了转出来的不对。
Function hextoval(str)
....
End Function
Dim data, path, fso, file,i
path = "E:\test.bin"
data = "4D5A....以下省略"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(path)
For i = 0 To Len(data)/2 -1
'Msgbox i & " " & Mid(data,2*i+1,2) & " " & hextoval(Mid(data,2*i+1,2)) & " " & Chr(hextoval(Mid(data,2*i+1,2)))
file.Write(Chr(hextoval(Mid(data,2*i+1,2))))
Next
file.Close
令客户先把数据转为HEX形式，提交HEX格式的数据（就是像“616263646566”表示“abcdef”的），服务器处理后还原为文件。
但不知为什么，我试着这样传了一个不大的应用程序tftp.exe，虽然大小没有问题，但显然内容不对，程序和原来不一样了！
谁能解决？
程序是这样的，DATA里是系统自己的tftp.exe。
如果去掉msgbox前的注释，看到的东西对着WINHEX看是正确的！
但去掉了转出来的不对。
Function hextoval(str)
....
End Function
Dim data, path, fso, file,i
path = "E:\test.bin"
data = "4D5A....以下省略"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(path)
For i = 0 To Len(data)/2 -1
'Msgbox i & " " & Mid(data,2*i+1,2) & " " & hextoval(Mid(data,2*i+1,2)) & " " & Chr(hextoval(Mid(data,2*i+1,2)))
file.Write(Chr(hextoval(Mid(data,2*i+1,2))))
Next
file.Close
exe可不是ascii码的。
不会解决。