Office中国论坛/Access中国论坛

标题: 拒绝权限？ [打印本页]

作者: eio 时间: 2002-12-3 03:18
标题: 拒绝权限？
Private Sub 命令9_Click()
FileCopy "C:\WINDOWS\Desktop\1\333.mdb", "C:\WINDOWS\Desktop\1\1\333.mdb"
End Sub

作者: 李寻欢 时间: 2002-12-3 04:59
你要看看你在C:\WINDOWS\Desktop\1\1\目录是否有写文件的权限？你的操作系统是2000？

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

作者: Trynew 时间: 2002-12-3 05:51
FileCopy不好用。当源文件（C:\WINDOWS\Desktop\1\333.mdb）已打开时就不能读。可用Api的CopyFile来替代。

作者: eio 时间: 2002-12-4 01:48
对，已打开时就不能读，本人操作系统是win9x，但使用Api的CopyFile却不懂，其实我只想做一个备份的功能而已。只要实现能选择储存的路径，如果不选择就依据当前路径，文件名以年月日时分秒+bak以便备份，就是这个
FileCopy使我做不到。就差这点而已！
[mp=0,0]http://www.office-cn.net/vvb/uploadimages/200212317445189005.zip[/mp]

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

作者: Trynew 时间: 2002-12-4 07:10
标题: Re:FileCopy
文件下载

代码如下：
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 时间: 2002-12-4 07:27
标题: thank you！
thank you！[em27][em27]

作者: yahai 时间: 2002-12-5 23:03
多谢……

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)