exe2swf 工具(Adodb.Stream版)

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(newFileName)) Then
    overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本")
    if overwrite=6 then
        AsoW.SaveToFile newFileName, 2
    else
        msgbox "操作被取消",0,"exe2swf脚本"
    end if
else
    AsoW.SaveToFile newFileName, 1
end if

AsoR.close
set AsoR=nothing
AsoW.close
set AsoW=nothing

Function Bin2Str(Bin)
    Dim I, Str
    For I=1 to LenB(Bin)
        clow=MidB(Bin,I,1)
        if ASCB(clow)<128 then
            Str = Str & (ASCB(clow))
        else
            I=I+1
            if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow))
        end if
    Next 
    Bin2Str = Str
End Function

您可能感兴趣的文章:

adodb.stream读文件到数组的代码JScript中使用ADODB.Stream判断文件编码的代码利用MSXML2.XmlHttp和Adodb.Stream采集图片使用asp下的adodb.stream 下载文件而不是打开asp下用ADODB.Stream代替FSO读取文本文件asp adodb.stream对象的方法/属性ADODB.Stream组件Charset属性值集合用ADODB.Stream转换windows2008+iis7无组件上传写入文件失败ADODB.Stream 错误 800a0bbc问题