我要實作一個功能
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
uj5u.com熱心網友回復：
先除錯，遇到具體問題先自行解決，解決不了再提問uj5u.com熱心網友回復：
三次回圈才多少時間, 你確定一定能生成檔案么?另外, 你說的問題在哪?
uj5u.com熱心網友回復：
3次內一定能生成,這個試過另外問題:用什么軟體,除錯這種測驗啊,VS用了好象沒有
先看下,代碼看起來應該沒問題吧
uj5u.com熱心網友回復：
你想做什么除錯？如果按你所說的3次一定能生成檔案，那么現在不是運行的很正常嗎。另外，生成檔案是呼叫的外部行程嗎？沒看到生成檔案的代碼。
還有一個，最上面的為什么是判斷的zip檔案存在，而洗掉的是txt檔案？？是不是寫錯了
要生成的話還可以在可疑代碼處的下面加上 msgbox 變數 來看看是否是預期的情況。
uj5u.com熱心網友回復：
刪的是ZIP的,原來 寫錯了就是說把這個命令一句句除錯,像C# 中一樣,做斷點除錯
C#我可以直接做斷點除錯,而這個好象不行,有類似于C#那樣的功能么
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112429.html
標籤：VBA
上一篇：On Error Goto 對一個函式內連續兩次出錯該如何處理？
下一篇：ADO操作UUID的問題