<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>
有点权限的限制
<!--
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>
有点权限的限制
<Input Type=Button Value="保存" OnClick="document.execCommand('SaveAs')">
2.
<Input Type=Button Value="保存" OnClick="document.execCommand('Saveas',false,'c:\\test.htm')">