Sub PrintSpecialFolders()
'goodidea 2004/10/06

Dim wsh As New WshShell
Dim i As Integer

For i = wsh.SpecialFolders.Count - 1 To 0 Step -1
Debug.Print wsh.SpecialFolders(i)
Next

Debug.Print wsh.SpecialFolders("Desktop") ¡¡¡¡'»ñµÃ×ÀÃæĿ¼
¡¡¡¡Debug.Print wsh.SpecialFolders("Fonts") ¡¡¡¡'»ñµÃϵͳ×ÖÌåĿ¼
¡¡¡¡Debug.Print wsh.SpecialFolders("Programs") ¡¡¡¡'»ñµÃ³ÌÐò²Ëµ¥Ä¿Â¼
¡¡¡¡Debug.Print wsh.SpecialFolders("StartUp") ¡¡¡¡'»ñµÃ³ÌÐòÆô¶¯Ä¿Â¼
¡¡¡¡Debug.Print wsh.SpecialFolders("Recent") ¡¡¡¡'»ñµÃ×î½üʹÓÃÎļþĿ¼
¡¡¡¡Debug.Print wsh.SpecialFolders("FAVORITES") ¡¡¡¡'»ñµÃÊղؼÐĿ¼
¡¡¡¡Debug.Print wsh.SpecialFolders("SENDTO") ¡¡¡¡'»ñµÃ·¢Ë͵½Ä¿Â¼
¡¡¡¡Debug.Print wsh.SpecialFolders("NETHOOD") ¡¡¡¡'»ñµÃÍøÂçÁÚ¾ÓĿ¼
¡¡¡¡Debug.Print wsh.SpecialFolders("AppData") ¡¡¡¡'»ñµÃ΢Èí³ÌÐòÊý¾ÝĿ¼

end Sub


--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
²»Ê¹ÓÃAPI»ñµÃÖ¸¶¨Îļþ¼ÐÎļþÁбí 2004-10-14 10:16:51
ÈçºÎ»ñÈ¡WindowsĿ¼ºÍSystemĿ¼£¿ 2003-11-7 8:24:04