Office中国论坛/Access中国论坛

标题: 如何用按钮删除同文件夹下的test.xls文件呢？ [打印本页]

作者: aydl1014 时间: 2004-1-11 16:00
提示: 作者被禁止或删除内容自动屏蔽

作者: hi-wzj 时间: 2004-1-11 18:41
kill 语句。

作者: rogertian 时间: 2004-1-11 18:59
定义一个函数.
Function delfiles()
Dim fsdel
Set fsdel = CreateObject("Scripting.FileSystemObject")
fsdel.DeleteFile CurrentProject.Path & "\" & v
End Function

v目录下的文件名.需要事先赋值

在程序中Call delfiles

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