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>
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>
<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>
在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