帮忙看看这段代码错在哪里？

sxgaobo

Dim rs As DAO.Recordset
    Dim fsgao
    Set fsgao = CreateObject("Scripting.FileSystemObject")
    Set rs = CurrentDb.OpenRecordset("Select * From 档案提供文件位置")
    Do While Not rs.EOF
       fsgao.CopyFile rs!存放位置, [Text0]
        rs.MoveNext
        Loop
    rs.Close
    Set rs = Nothing
错误代码70，拒绝的权限
不会写代码，抄的，见笑了！！！

todaynew

是不是少了Microsoft Scripting Runtime的引用？

sxgaobo

有啊！和顺序有关系吗？

sxgaobo

是不是还需要别的引用啊？

koutx

从下面的代码可成功实现，即可说明不是引用的问题：
    Dim fsgao
   
    Set fsgao = CreateObject("Scripting.FileSystemObject")
    For i = 1 To 2
       fsgao.CopyFile "d:\源fload\" & i & ".txt", "D:\目的fload\"
      
    Next

仔细检查你这句代码吧：fsgao.CopyFile rs!存放位置, [Text0]

sxgaobo

是这样的，在表“档案提供文件位置”的‘存放位置’字段中放了许多文件的存放位置，想做段代码将这些文件一次性拷贝到指定的文件夹中。可上面那段代码老报错！

koutx

‘存放位置’字段中放了许多文件的存放位置，
看来存放的不包括文件名了，那当然要出错啦。
存放的内容必须是如d:\源fload\" & i & ".txt一样的文件的全路径加名称；
还是把样库传上来吧。

sxgaobo

谢谢各位！
我的问题，[Text0]中缺少个“\”
不好意思~~！！