如何用按钮删除同文件夹下的test.xls文件呢？

aydl1014 · 发表于 2004-1-11 16:00:00

提示: 作者被禁止或删除内容自动屏蔽

hi-wzj · 发表于 2004-1-11 18:41:00

kill 语句。

rogertian · 发表于 2004-1-11 18:59:00

定义一个函数.
Function delfiles()
Dim fsdel
Set fsdel = CreateObject("Scripting.FileSystemObject")
fsdel.DeleteFile CurrentProject.Path & "\" & v
End Function

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

在程序中Call delfiles

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	电梯直达 1^# 发表于 2004-1-11 16:00:00 \| 只看该作者 \|倒序浏览 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽
	分享到: QQ好友和群 QQ空间腾讯微博腾讯朋友收藏0 分享淘帖0 订阅
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡

主题相关群

地区相关群[您还没设置居住地]

[宏/菜单/工具栏] 如何用按钮删除同文件夹下的test.xls文件呢？

群介绍
主题无相 (随机显示版	同地区群块其他地区)