Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流)
QQ:18449932
网 址:www.access-cn.com
Dim wshshell As ObjectDim strDesktopSet wshshell = CreateObject("wscript.shell")strDesktop = wshshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop")