保存为 .hta ta
<! doctypehtmlpublic "-// w3c // dtdhtml4.01transitional // en">
<html>
<헤드>
<title> packagefilev0.1 </title>
<metahttp-equiv = "content-type"content = "text/html; charset = gb2312">
<HTA : 응용 프로그램
id = "packagefilev0.1"
ApplicationName = "PackageFileV0.1"
버전 = "0.1"
스크롤 = "아니요"
Innerborder = "아니요"
ContextMenu = "예"
캡션 = "예"
아이콘 = "아니요"
Showintaskbar = "예"
SingleInstance = "예"
sysmenu = "예"
maximizebutton = "no"
Windowstate = "정상"
Navigable = "예"
/>
<scriptLanguage = "vbscript">
functiontransfert ()
Dimfilename
filename = document.getElementById ( "srcfile"). 값
iflen (filename)> 0then
디모레크
'onerrorresumenext
'// m xmlhttp 对象
setoreq = createobject ( "msxml2.xmlhttp")
oreq.open "get", "file : //"& filename, false
Oreq.send
ff = oreq.responsebody
Dimu, S, KK
u = lenb (ff)