Добрый день!

Есть база данных клиентов юр.лиц. На форме в числе прочего есть поля "ИНН" и "Название". Имеется кнопка "Папка" которая открывает папку в експлорере с документами по этому клиенту. При нажатии на эту кнопку проверяется наличие на диске Z папки с названием равным ИНН - если такой папки еще нет, то она создается - и открывает эту папку.
Вот код он прекрасно работает:

Private Sub cmdFolder_Click()

Dim INN As String
Dim fso As New FileSystemObject

INN = Me.Controls("ИНН").Value
If fso.FolderExists("Z:\" & INN") Then
        Shell "explorer Z:\" & INN, vbNormalFocus
    Else
        fso.CreateFolder ("Z:\" & INN)
        Shell "explorer Z:\" & INN, vbNormalFocus
End If

End Sub

Но при таком решении сложно искать папки вручную (не через аксесс)
Задача - чтобы папки назывались ИНН + пробел + Название ( а лучше наоборот (Название + пробел + ИНН)
Создать такую папку проблемы нет:

fso.CreateFolder ("Z:\Imhotep\" & INN & " " & FirmaS)

Вот только удалить запрещенные символы надо (кавычки и слэши) - вот вопрос
А главное, как проверить существование такой папки и открыть ее при условии что название в базе (поле на форме) может корректироваться и вообще не будет соответствовать назвнию папки (из-за удаленных в названии папки кавычек например)

Грубо говоря: Как Like запихнуть в Shell и в FolderExists

Заранее спасибо!

http://www.sql.ru/forum/1197087/proverit-sushhestvovanie-papki-po-nepolnomu-nazvaniu