<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" >
可以实现的，大概的思路是这样：1.先新建一ASP页（不知道你用什么来做的，就以asp为例吧）,该页的作用是读取服务器上某个目录下的所有文件，并显示文件列表，做出类似选择文件对话框的样子。具体代码网上有很多，你以“asp 遍历文件夹”作为关键字在baidu或google中搜一下。
2.在“修改”按钮上使用Javascript的模态对话框弹出上一步做出来的网页。
就是window.showModalDialog()，模态对话框可以接收父窗口传来的参数，也可以返回参数给父窗口，利用这一特性，当你在对话框中选择好文件点确定时，可以从对话框将选择内容返回到父页面上。具体怎么用？同样建议你以“showModalDialog”作为关键字到网上去搜一下。
