你是不是很想知道操作系统相关的一些特殊目录位置?用WSH十分方便 Sub PrintSpecialFolders() Dim wsh As New WshShell For i = wsh.SpecialFolders.Count - 1 To 0 Step -1 Debug.Print wsh.SpecialFolders("Desktop") '获得桌面目录 end Sub |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-4-28 23:09 , Processed in 0.075967 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.