<tr> <td colspan="2"> <font color="red">说明:双击列表框的一个选项,就将该文件夹下面的文件夹显示在该列表框中。第一个就是根目录</font> </td> </tr> </table> </body> </html> <script> /**//* *初始化,将系统所有的驱动器放入table_drives列表 */ window.onload = new function init() { var fso, s, n, e, x; fso = new ActiveXObject("Scripting.FileSystemObject"); e = new Enumerator(fso.Drives); s = ""; for (; !e.atEnd(); e.moveNext()) { x = e.item(); s = s + x.DriveLetter; s += ":"; if (x.DriveType == 3) n = x.ShareName; else if (x.IsReady) n = x.VolumeName; else n = "[驱动器未就绪]"; s += n + ","; } var drives = s.split(","); var tableDrives = document.getElementById("tables_drives"); for ( var i = 0; i < drives.length-1; i++ ) { var option = document.createElement("OPTION"); drives[i].split(":"); option.value = "["+drives[i].split(":")[0]+":]"+drives[i].split(":")[1]; option.text = "["+drives[i].split(":")[0]+":]"+drives[i].split(":")[1]; tableDrives.add(option); } }
/**//* *tables_drives列表中选中的驱动器上所有文件夹放入table_folder列表中 */ function get_drives() { var tableDrives = document.getElementById("tables_drives"); var tableFolders = document.getElementById("table_folder"); for ( var i = 0; i < tableDrives.options.length; i++ ) { if ( tableDrives.options[i].selected == true ) { var fso, f, fc, s; var drive = tableDrives.options[i].value.split(":")[0].substring(1,tableDrives.options[i].value.split(":")[0].length); document.getElementById("backDir").value = drive + ":\"; fso = new ActiveXObject("Scripting.FileSystemObject"); if (fso.DriveExists(drive)) { d = fso.GetDrive(drive); if ( d.IsReady ) { f = fso.GetFolder(d.RootFolder); fc = new Enumerator(f.SubFolders); s = ""; for (;!fc.atEnd(); fc.moveNext()) { s += fc.item(); s += ","; }