保存为.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)