我想写一个程序

book_learninglhm 2008-01-10 03:36:52
用VB,实现功能5分钟删除文件,删除文件之后程度自动退出。如果没有找到文件也是5分钟软件自动退出。谢谢
...全文
63 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
有没有搞错,到底是楼主想写还是楼上几位想写??
回复
z_wenqian 2008-01-10
Private Sub Timer1_Timer()
On Error Resume Next
Kill PathName
End
End Sub

Timer1.Interval = 300000
回复
ncu571633 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方法删除文件
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告