Список Файлов

[GoGosha]

В начале события Shows добавь строку

Код: Выделить всё

On Error Resume Next

Получится

Код: Выделить всё

Function Shows()
    Dim Elem As Variant
    Dim StringFoloders() As String
   
    On Error Resume Next
   
    ListView1.ListItems.Clear
   
    For Each Elem In Strings
        If Left(Elem, Len(path)) = path Then
            StringFoloders() = Split(Elem, "/")
            If Not level = UBound(StringFoloders) Then
                ListView1.ListItems.Add , StringFoloders(level), StringFoloders(level), 1, 1
            Else
                ListView1.ListItems.Add , StringFoloders(level), StringFoloders(level), 2, 2
            End If
        End If
    Next Elem
End Function

[GoGosha]

Вот держи я сделал её гораздо лучше и исправил несколько ошибок

[Powersoft]

я не тестировал еще эту прогу, но все равно огромное спасибо вам всем за предоставленную помощь.

[Powersoft]

Особенное спасибо:

GoGosha
vovchikxxx