2011年7月8日 星期五

WScript.Shell 應用:SpecialFolders傳用特殊資料夾路徑


利用WScript.Shell 控制項的 SpecialFolders 屬性可得到以下的一些特殊路徑:
參數參考路徑月麒麟工作室備註
AllUsersDesktopC:\Documents and Settings\All Users\桌面桌面路徑
AllUsersStartMenuC:\Documents and Settings\All Users\「開始」功能表
AllUsersProgramsC:\Documents and Settings\All Users\「開始」功能表\程式集
AllUsersStartupC:\Documents and Settings\All Users\「開始」功能表\程式集\啟動
DesktopC:\Documents and Settings\xxxxxxxx\桌面
FavoritesC:\Documents and Settings\xxxxxxxx\Favorites
FontsC:\WINDOWS\Fonts字型路徑
MyDocumentsC:\Documents and Settings\xxxxxxxx\My Documents我的文件
NetHoodC:\Documents and Settings\xxxxxxxx\NetHood網路上的芳鄰
PrintHoodC:\Documents and Settings\xxxxxxxx\PrintHood
ProgramsC:\Documents and Settings\xxxxxxxx\「開始」功能表\程式集
RecentC:\Documents and Settings\xxxxxxxx\Recent最近開啟文件
SendToC:\Documents and Settings\xxxxxxxx\SendTo
StartMenuC:\Documents and Settings\xxxxxxxx\「開始」功能表
StartupC:\Documents and Settings\xxxxxxxx\「開始」功能表\程式集\啟動啟動執行
TemplatesC:\Documents and Settings\xxxxxxxx\Templates

使用範例:VFP
loShell = Createobject('wscript.shell')
?loShell.SpecialFolders('AllUsersDesktop')  &&所有使用者
?loShell.SpecialFolders('Desktop')    &&目前使用者
?loShell.SpecialFolders('Fonts')     &&字型路徑
Release loShell

沒有留言: