拒绝权限？

eio

Private Sub 命令9_Click()
FileCopy "C:\WINDOWS\Desktop\1\333.mdb", "C:\WINDOWS\Desktop\1\1\333.mdb"
End Sub

李寻欢

你要看看你在C:\WINDOWS\Desktop\1\1\目录是否有写文件的权限？你的操作系统是2000？

[此贴子已经被作者于2002-12-2 20:59:14编辑过]

Trynew

FileCopy不好用。当源文件（C:\WINDOWS\Desktop\1\333.mdb）已打开时就不能读。可用Api的CopyFile来替代。

eio

对，已打开时就不能读，本人操作系统是win9x，但使用Api的CopyFile却不懂，其实我只想做一个备份的功能而已。只要实现能选择储存的路径，如果不选择就依据当前路径，文件名以年月日时分秒+bak以便备份，就是这个
FileCopy使我做不到。就差这点而已！

[此贴子已经被作者于2002-12-3 17:47:33编辑过]

Trynew

文件下载

代码如下：
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
     (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
      ByVal bFailIfExists As Long) As Long

Private Sub 命令0_Click()
    CopyFile CurrentProject.Path & "\CopyFile.mdb", _
       CurrentProject.Path & "\" & Date & "_Bak.mdb", 0
End Sub

eio

thank you！[em27][em27]

yahai

多谢……