Считывание имён файлов

[Казанский]

Или так:

Function Obuv(s$) As String
Dim i&, k&
i = InStrRev(s, "\") 'позиция последнего "\"
If i Then
    i = InStr(i, s, "(") 'позиция "(" после последнего "\"
    If i Then
        k = InStr(i, s, ")") 'позиция ")"
        If k Then Obuv = Mid$(s, i + 1, k - i - 1): Exit Function
    End If
End If
Obuv = "No"
End Function

Тестирование в окне Immediate:

?obuv("\\servak\Комп\Documents\(Магазин обуви)+++.doc")
Магазин обуви
?obuv("\\servak\Комп\(Documents)\Магазин (обуви)+++.doc")
обуви
?obuv("\\servak\Комп\(Documents)\(Магазин обуви+++.doc")
No
?obuv("\\servak\Комп\(Documents\Магазин обуви)+++.doc")
No

[bygaga1]

doober, Казанский а как сделать чтоб Вашы коды работали (на примере "Просмотр содержимого папки.rar"), сори, просто я не очень силен в программировании...