选择文件夹.htm

=== === === === JavaScript经典源代码收集

<object classid="CLSID:13709620-C279-11CE-A49E-444553540000" id="Shell"></object>
<script language="VBScript">
Function test()
Set pstrTempFolder = Shell.BrowseForFolder(0,"请选择文件夹：",0)
BrowseForFolder = pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path
test = BrowseForFolder
End Function
</script>
<input type="button" value="选择一个文件夹" onclick="alert(test())">