保存为.hta运行
<
<html>
<head>
<title> packagefilev0.1 </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA：アプリケーション
id = "packagefilev0.1"
ApplicationName = "PackageFilev0.1"
version = "0.1"
scroll = "no"
innerborder = "no"
ContextMenu = "はい"
キャプション= "はい"
icon = "no"
showintaskbar = "yes"
singleInstance = "はい"
sysmenu = "yes"
MaximizeButton = "no"
window -state = "normal"
navigable = "yes"
/>
<scriptlanguage = "vbscript">
functionTransfert（）
dimfilename
filename = document.getElementById（ "srcfile"）。value
iflen（filename）> 0then
dimoreq
'onerrorresumenext
'//创建xmlhttp对象
setoreq = createObject（ "msxml2.xmlhttp"）
oreq.open "get"、 "file：//"＆filename、false
oreq.send
ff = oreq.responsebody
ディム、S、KK
u = lenb（ff）