删除及复制文件问题

一点通

    Kill "d:\综合管理系统.mde"  '先删除现有文件

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

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

zhuzhuzhu

你好，还在吗？

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

gaoqiwen

win 98 + access2000中支持FSO吗？

可试试FSO来实现！

fan0217

应该可以的,但需要引用:microsoft Scripting runtime

C:\WINDOWS\system32\scrrun.dll

一点通

谢谢,引用了还是不行,奇怪的是在当前目录中直接运行数据库可以执行,但在桌面上用快捷键打开就不行,代码中已经指明路径了,真的想不通

fan0217

应该不是语句的问题,看来该升级了,98要被淘汰了.

一点通

升级到XP是迟早的问题，但在局域网中大部份电脑都是98的，不会因数据库问题而将不能运行XP的电脑（低配置）都升级吧？

fan0217

使用FSO,确认了你系统里面有C:\WINDOWS\system32\scrrun.dll这个文件了吗?

一点通

这个文件在98或XP都有的,FSO的语句如何写?

fan0217

'===============================================================================
'-函数名称:         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