Question

我的Dir功能存在问题。

Private Sub InitFileElvt()
    Dim fileName As String
    Dim find As Boolean
    Dim trouve As Boolean
    trouve = False
    fileName = Dir(THEORIQUE & "\" & LibPie & CftMot & _ 
               Mid(NoPlan, 13, 1) & Mid(VERPIE, 1, 1) & "\") 'It works here
    Do While fileName > "" And Not trouve
        If IsElvtFile(fileName) Then
            trouve = True
            pathFileElvt = THEORIQUE & "\" & fileName
        End If
        fileName = Dir() 'An error here
    Loop
    If Not trouve Then
        pathFileElvt = "empty"
    End If
End Sub

Private Function IsElvtFile(ByVal fileName As String) As Boolean 
    Dim lengthDeb As Integer
    lengthDeb = Len(LibPie) + Len(CftMot) + 1
    IsElvtFile = Left(fileName, lengthDeb) = LibPie + CftMot + Mid(NoPlan, 13, 1) And _
                 Right(fileName, 4) = ".ELV"
End Function

第一次拨打Dir会给我一个文件夹中的文件。好。但是第二个电话给了我Run-Time Error '5': Invalid Procedure Call or Argument

我对Dir功能缺少什么？显然，这是必须如何使用的。

当我处于调试模式时，在行Do While fileName > "" And Not trouve中，我在dir上的监视会返回下一个文件。执行此行后，我的手表会显示错误。

Answer 1

Dir(otherPath)还有其他手表...... 我删除了它们，现在它可以正常工作

VB6中的Dir函数 - 错误5

1 个答案: