我想写一个程序

book_learninglhm 2008-01-10 03:36:52
用VB,实现功能5分钟删除文件,删除文件之后程度自动退出。如果没有找到文件也是5分钟软件自动退出。谢谢
...全文
112 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
熊孩子开学喽 2008-01-13
  • 打赏
  • 举报
回复
有没有搞错,到底是楼主想写还是楼上几位想写??
z_wenqian 2008-01-10
  • 打赏
  • 举报
回复
Private Sub Timer1_Timer()
On Error Resume Next
Kill PathName
End
End Sub

Timer1.Interval = 300000
「已注销」 2008-01-10
  • 打赏
  • 举报
回复
首先声明 调用api
'判断输入参数是否为文件或文件夹
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
然后找文件
if PathFileExists(txtFileName) = False Then '文件不存在
if GetAttr(txtFileName) = vbDirectory then '输入是文件夹

删除文件 kill(txtFileName)
时间控制:timer,注意需要转化成秒来计算
junki 2008-01-10
  • 打赏
  • 举报
回复
用timer作监控,调用kill方法删除文件

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧