这个没办法的。不要用滚动条，就显示一个正在处理吧：
Forms("等待窗口").open()Application.DoEventsfilesys.copydirectory(“d:\照片”,ProjectPath & "Attachments\",True)Forms("等待窗口").close()
加好友 
发短信
Post By：2012/6/6 9:10:00 [显示全部帖子]
