VB 代码 请大神 指教
我要实现一个功能
1.判断文件
1.1 如果存在,就删除这个文件
1.2 如果不存在,就往下走程式
2.如果不存在,会执行一个代码,让他生成,
执行可能会失败
2.1. 循环3次执行, 每次都会判断是否生成此文件,如果生成,则跳出循环,往下继续走(一般3次内肯定会生成)
代码如下:但一直有问题,请指教
Public Sub Main()
'delete old file'
If dir("E:\TEST\iqdc.zip") <> " " Then
Kill("E:\iqdc.txt")
End If
'judge File exist and cycle 3 times if Fail'
Dim Flag = 0
Do While Flag < 3
'要执行生成的文件'
If dir("E:\TEST\iqdc.txt") <> " " Then Exit Do
Flag = Flag + 1
Loop
End Sub