我用下面的方法创建了一个以日期和时间为名称的文件夹，然后把程序里面的Access数据库复制到这个文件夹里面，但是当程序运行到最后一步时就出错：显示“拒绝的权限”，请问大家是怎么回事？
Dim fsoTest As New FileSystemObject
Dim folder1 As folder
Dim folder As String

Set folder1 = fsoTest.GetFolder(App.Path & "\Backup\")
folder = (App.Path & "\Backup\" & Format(Date, "DD-MM-YYYY") & " " & Format(Time, "hh-mm-ss"))
fsoTest.CreateFolder folder

fsoTest.CopyFile App.Path & "\db.mdb", folder, True

此代码是在XP环境下测试的，并且是在管理员的账户下，没有任何权限的限制。

[ 本帖最后由 mmy19811217 于 2011-1-6 22:48 编辑 ]

是XP下操作还是其他什么操作系统，看看是否是以管理员身份运行的操作，这些都可以肯定的，那么再看看建立的这个文件夹下给哪些用户设置了读写权限！如果这些都没有问题，应该就OK了！

试过可以运行。