Проблема с циклом. Отдельно всё работает, а запускаешь всё вместе вылезает ошибка.

Private Sub Command1_Click()
    ListView1.ListItems.Clear
    ''FindFolders
    ''FindFiles
End Sub
 
Sub FindFolders()
    Dim MyDrive, MyPath, MyFold, lvwItem
    MyDrive = 'C: '
    MyFold = Dir$(MyDrive, vbDirectory)
    Do While MyFold <> Empty
        If (GetAttr(MyDrive & MyFold) And vbDirectory) = vbDirectory Then
            MyPath = MyDrive & MyFold & ' '
            FindFiles (MyPath)
            Debug.Print MyPath
        End If
    MyFold = Dir$
    Loop
End Sub
 
Sub FindFiles(MyPath)
    Dim lvwItem, MyName
    MyName = Dir$(MyPath)
    With ListView1.ListItems
    Do While MyName <> ''
        Set lvwItem = .Add(, , Left(MyName, Len(MyName) - 4))
        lvwItem.SubItems(1) = Format((FileLen(MyPath & MyName) / 1000000), '###')
    MyName = Dir$
    Loop
    End With
End Sub