Question

使用VB6

在一个文件夹中，我有n个文件，我想删除0 kb文件

码

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 - path

以上代码只删除一个文件，剩余文件没有删除。在找不到文件时显示错误。

我的代码有什么问题？

需要VB6代码帮助

Answer 1

您需要在“循环”行之前添加以下行：

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

为什么我的循环只删除一个文件？

2 个答案: