一个递归调用的错误，请帮忙解决

Question

Public Sub CopyFiles(ByVal DirName As String) 
    Dim FileName As String 
    FileName = Dir(DirName, vbNormal + vbDirectory) 
    Do While FileName <> "" 
        If FileName <> "." And FileName <> ".." Then 
            If (GetAttr(DirName & FileName) And vbDirectory) = vbDirectory Then 
                Call CopyFiles DirName & FileName & "\" 
                Exit Sub
                 
'                FileName = Dir(DirName, vbNormal + vbDirectory) 
            Else 
                Debug.Print FileName 
            End If 
        End If 
        FileName = Dir  '出错处 
    Loop 
End Sub

Answer 1

FileName = Dir  ''后面没带参数，当然要错了

Answer 2

不加参数是列出下一个文件或文件夹的名称
有点象for循环里的next作用。
加参数就死循环了

Answer 3

Exit Sub用此岂不就调用了一次，根本起不到递归的作用

Answer 4

为什么不用用Microsoft Scripting Runtime??