function browseFolder(path) {
    try {
        var Message = "\u8bf7\u9009\u62e9\u6587\u4ef6\u5939"; //選擇框提示資訊
        var Shell = new ActiveXObject("Shell.Application");
        var Folder = Shell.BrowseForFolder(0, Message, 64, 17); //起始目錄為：我的電腦
        //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 + "\\";
            }
            document.getElementById(path).value 
 
= Folder;
            return Folder;
        }
    }
    catch (e) {
        alert(e.message);
    }
}

<table>
  <tr>
    <td>選擇匯入資料來源：</td>
    <td><input id="path" type="text" name="path" size="30"></td>
    <td><input type=button value="選擇" onclick
 
="browseFolder('path')"></td>
  </tr>
</table>

注：

如果點選選擇按鈕提示：你沒有許可權，應該如下修改：<br />
1. 單擊選單工具->Internet選項->安全->受信任站點->站點->把此網站設為可信站點<br />
2. 在自定義級別->對沒有標記為安全的ActiveX控制元件進行初始化和指令碼執行"----"啟用"

結果：