JS打开选择本地文件的对话框:
方法一：
在定义的form中添加以下javascript代码：
{anchor : '95%',
xtype: 'fileuploadfield',
id: 'form-file',
emptyText: '请选择',
fieldLabel: '上传附件',
name: 'meetingAffix',
buttonText: 'Browse'
}
单击Browse按钮后可以打开对话框，选中文件后，所选文件路径会出现在上传附件后面的文本框中。
方法二：
在定义的form中添加以下javascript代码：
{columnWidth :1,
layout :'form',
bodyStyle :'padding:10px',
defaultType :'textfield',
labelWidth :120,
width :1000,
buttonAlign :'center',
items : [ {
fieldLabel :'请选择要上传的文件',
name :'fileName',
id :'fileId',
anchor :'95%',
allowBlank :false,
inputType :'file'
} ]
}
方法三：
给按钮定义以下javascript函数：
var inputObj=document.createElement('input')inputObj.setAttribute('id','_ef')
inputObj.setAttribute('type','file')
inputObj.setAttribute("style",'visibility:hidden')
document.body.appendChild(inputObj)
inputObj.click()
inputObj.value
单击已经添加函数的按钮会弹出选择本地文件的对话框。
下面是一个VB脚本的，需要加入可信站点才能弹出对话框，打开要保存的文件夹<script language="vbscript">
Function Foder()
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "请选择文件夹:", OPTIONS, strPath)
If objFolder Is Nothing Then
exit Function
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
document.frmList.FODER_PATH.value = objPath
End Function
</script>
<input type = "button" name = "path" size = "100" onclick="Foder()" value="选择文件夹" />
客户导入选择文件就用file就可以
<input type="file" name="DATA_RESTORE_PATH" maxlength="20" style="WIDTH: 100px" >
// 浏览文件夹（指定文件路径）function BrowseFolder() {try {var Message = "Please select the folder path."//选择框提示信息var Shell = new ActiveXObject("Shell.Application")var Folder = Shell.BrowseForFolder(0, Message, 0x0040, 0x11)//起始目录为：我的电脑//var Folder = Shell.BrowseForFolder(0,Message,0)//起始目录为：桌面if (Folder != null) {Folder = Folder.items()// 返回 FolderItems 对象Folder = Folder.item()// 返回 Folderitem 对象Folder = Folder.Path// 返回路径if (Folder.charAt(Folder.length - 1) != "\\") {Folder = Folder + "\\"}return Folder}} catch (e) {alert(e.message)}}//保存文件function SaveInfoToFile(folder, fileName) {var filePath = folder + fileNamevar fileInfo = "hahahaha"var fso = new ActiveXObject("Scripting.FileSystemObject")var file = fso.CreateTextFile(filePath, true)file.Write(fileInfo)file.Close()}以上代码并没有处理xml，关于xml可以找相关资料。
