7453
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
熊孩子开学喽 2008-01-13
有没有搞错，到底是楼主想写还是楼上几位想写？？
z_wenqian 2008-01-10
Private Sub Timer1_Timer()
On Error Resume Next
Kill PathName
End
End Sub
Timer1.Interval = 300000
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,注意需要转化成秒来计算
'判断输入参数是否为文件或文件夹
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方法删除文件
