<script> var wsh = new ActiveXObject("Wscript.Shell"); alert(wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEDRIVE")+wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEPATH")+"\\×ÀÃæ"); </script>
<script> var wsh = new ActiveXObject("Wscript.Shell"); alert(wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEDRIVE")+wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEPATH")+"\\桌面"); </script>
<script> var wsh = new ActiveXObject("Wscript.Shell"); alert(wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEDRIVE")+wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEPATH")+"\\「开始」菜单"); </script>
<script language=vbs> Set fso=CreateObject("Scripting.FileSystemObject") set getfso=fso.GetFolder("c:\").files document.write "以下是桌面所有文件" for each i in getfso document.write i & "<br>" next document.write "<p>以下是桌面所有文件子文件夹包含的文件夹和文件<p>" set getfso=fso.GetFolder("d:\").SubFolders for each r in getfso document.write r & " 文件夹包含<p>" set getfso1=fso.GetFolder(r).files for each n in getfso1 document.write n & "<br>" next next </script>
var wsh = new ActiveXObject("Wscript.Shell");
alert(wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEDRIVE")+wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEPATH")+"\\×ÀÃæ");
</script>
var wsh = new ActiveXObject("Wscript.Shell");
alert(wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEDRIVE")+wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEPATH")+"\\桌面");
</script>
var wsh = new ActiveXObject("Wscript.Shell");
alert(wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEDRIVE")+wsh.RegRead("HKEY_CURRENT_USER\\Volatile Environment\\HOMEPATH")+"\\「开始」菜单");
</script>
参数
object
WshShell 对象。
objWshSpecialFolders
特殊文件夹的名称。
说明
WshSpecialFolders 对象是一个集合,其中包含整套 Windows 特殊文件夹,如 "Desktop" 文件夹、"Start Menu" 文件夹和 "Personal Documents" 文件夹。特殊文件夹名称用于索引该集合以检索所需的特殊文件夹。如果请求的文件夹 (strFolderName) 不可用,则 SpecialFolders 属性返回一个空字符串。例如,Windows 95 中没有 AllUsersDesktop 文件夹,如果 strFolderName 是 AllUsersDesktop,则返回一个空字符串。
下面的特殊文件夹可用: AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
Set fso=CreateObject("Scripting.FileSystemObject")
set getfso=fso.GetFolder("c:\").files
document.write "以下是桌面所有文件"
for each i in getfso
document.write i & "<br>"
next
document.write "<p>以下是桌面所有文件子文件夹包含的文件夹和文件<p>"
set getfso=fso.GetFolder("d:\").SubFolders
for each r in getfso
document.write r & " 文件夹包含<p>"
set getfso1=fso.GetFolder(r).files
for each n in getfso1
document.write n & "<br>"
next
next
</script>