Office中国论坛/Access中国论坛

标题: 删除及复制文件问题 [打印本页]

作者: 一点通 时间: 2006-4-1 23:20
标题: 删除及复制文件问题
Kill "d:\综合管理系统.mde" '先删除现有文件

FileCopy "\<a>\Fmd\www\综合管理系统.mde", "d:\综合管理系统.mde" '复制文件

上面两句代码在win xp + access2000的桌面上用快捷键打开数据库可以实现删除及复制文件,但在win 98 + access2000的桌面上用快捷键打开数据库就不能实现删除及复制文件(但,不用快捷键可以实现这个功能),不知是什么原因,还有其它方法可以在win 98 + access2000中删除及复制文件呢？

作者: zhuzhuzhu 时间: 2006-4-2 00:09
你好，还在吗？

刚才你说的“DMAX”怎么用呀！再谢

作者: gaoqiwen 时间: 2006-4-2 00:22
win 98 + access2000中支持FSO吗？

可试试FSO来实现！

作者: fan0217 时间: 2006-4-2 00:29
应该可以的,但需要引用:microsoft Scripting runtime

C:\WINDOWS\system32\scrrun.dll

作者: 一点通 时间: 2006-4-2 00:54
谢谢,引用了还是不行,奇怪的是在当前目录中直接运行数据库可以执行,但在桌面上用快捷键打开就不行,代码中已经指明路径了,真的想不通

作者: fan0217 时间: 2006-4-2 01:53
应该不是语句的问题,看来该升级了,98要被淘汰了.

作者: 一点通 时间: 2006-4-2 01:57
升级到XP是迟早的问题，但在局域网中大部份电脑都是98的，不会因数据库问题而将不能运行XP的电脑（低配置）都升级吧？

作者: fan0217 时间: 2006-4-2 02:33
使用FSO,确认了你系统里面有C:\WINDOWS\system32\scrrun.dll这个文件了吗?

作者: 一点通 时间: 2006-4-2 09:59
这个文件在98或XP都有的,FSO的语句如何写?

作者: fan0217 时间: 2006-4-2 23:55
'===============================================================================
'-函数名称:       DelFile
'-功能描述:       删除文件
'-输入参数说明:    参数1:strFile As String 要删除的文件名称，含路径
'-返回参数说明:
'-使用语法示例:
'-参考:
'-使用注意:
'-兼容性:          97,2000,XP,2003
'-作者:          fan0217 fan0217@163.com
'-更新日期：       2006-02-24
'===============================================================================
Function DelFile(strFile As String) As Boolean
On Error GoTo Err_DelFile
Dim objFS As FileSystemObject

Set objFS = CreateObject("Scripting.FileSystemObject")
      objFS.DeleteFile strFile, False
      DelFile = True

Exit_DelFile:
Exit Function

Err_DelFile:
DelFile = False
MsgBox Err.Description
Resume Exit_DelFile

End Function

作者: zshowell 时间: 2006-4-2 23:59
FileCopy "\<A>\Fmd\www\综合管理系统.mde", "d:\综合管理系统.mde"

试试将上文件的文件转化为另一种形式表示,好似在报表向导中会将这些文字转为其他数码的

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