<SCRIPT LANGUAGE="VBScript">
<!--
  function fnGetMyPathVB() 
    
    dim oShell
    dim oFolder
    dim oFolderItem

    set oShell = CreateObject("Shell.Application")
    set oFolder = oShell.BrowseForFolder(0, "Choose a Folder", 0)        
    set oFolderItem = oFolder.Items.Item  

    document.all.item("myPath").innerText = oFolderItem.Path  
    
  end function
  fnGetMyPathVB() -->
</SCRIPT>
有点权限的限制