function Enter(){
  wndShell = new ActiveXObject("Shell.Application");
  var oFolder;
   oFolder = wndShell.BrowseForFolder(0,"select folder。",0x0001);if((oFolder != null)){
alert(oFolder.Items().Item().Path);
return true;
}
return false;
}
</script>

解决方案 »

  1.   

    完整一点:
    <script>
    function Enter(){
      wndShell = new ActiveXObject("Shell.Application");
      var oFolder;
       oFolder = wndShell.BrowseForFolder(0,"select folder。",0x0001);if((oFolder != null)){
    alert(oFolder.Items().Item().Path);
    return true;
    }
    return false;
    }
    </script><body><a href="javascript:Enter()">Click Here</a>
    </body>
      

  2.   

    引用System.Designer.dll
    在System.Windows.Forms.Design这个名控件下面有一个FolderNameEditor 类,其实就是一个目录浏览对话框,只不过这个类不能直接使用,必须Inherit.Imports System.Windows.Forms
    Public Class FolderBrowser
        Inherits System.Windows.Forms.Design.FolderNameEditor    Public Shared Function ShowDialog() As String
            Dim fb As New FolderBrowser()
            '对话框的title
            fb.Description = "Select a Directory to Scan"
            '默认是系统的桌面目录
            fb.StartLocation = Design.FolderNameEditor.FolderBrowserFolder.Desktop
            '对话框的样式
            fb.Style = Design.FolderNameEditor.FolderBrowserStyles.ShowTextBox
            fb.ShowDialog()        Return fb.DirectoryPath
        End Function
    End Class