Почему моя петля удаляет только один файл?

Question

Использование VB6

В папке n файлов, я хочу удалить файлы размером 0 КБ

код

Dim filename5 As String
filename5 = Dir$(txtsourcedatabasefile & "\*_*", vbDirectory)
MsgBox filename5
Do While filename5 <> ""
    If FileLen(txtsourcedatabasefile & "\" & filename5) = 0 Then
        Kill txtsourcedatabasefile & "\" & filename5
    End If
Loop 

txtsourcedatabasefile - путь

Приведенный выше код удаляет только один файл, оставшийся файл не удаляется. Отображение ошибки, поскольку файл не найден.

Что не так в моем коде?

Нужен справочный код VB6

Answer 1

Вам необходимо добавить следующую строку перед строкой "Loop":

filename5 = Dir

Например, см .: http://msdn.microsoft.com/en-us/library/aa262727(VS.60).aspx

Answer 2

Вы должны снова вызвать функцию Dir без аргументов. Это делается путем помещения функции Dir в цикл

Dim filename5 As String
filename5 = Dir$(txtsourcedatabasefile & "\*_*", vbDirectory)
MsgBox filename5

Do While filename5 <> ""
    If FileLen(txtsourcedatabasefile & "\" & filename5) = 0 Then
        Kill txtsourcedatabasefile & "\" & filename5
        filename5 = Dir
    End If
Loop