Total Commander

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

'===========================================================================
' Колонка Result возвращает признак наличия файла\каталога в указанном файле-списке:
'   0 - файл\каталог НЕ найден;
'   1 - строгое соответствие;
'   2 - найдено начало имени
'===========================================================================

'========== Изменяемые параметры ===========================================
Const FileList = "C:\FileList.txt" 'Файл-список
'===========================================================================

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
content = Result
Set FSO = Nothing

Function Result
  Dim List, dlm, i, F
  Result = 0
  If Not FSO.FileExists(FileList) Then
    Exit Function
  End If 
  
  On Error Resume Next
  List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
  If Err.Number <> 0 Then
    Exit Function
  End If
  On Error GoTo 0
  
  dlm = vbNewLine
  If InStr(1, dlm & List & dlm, dlm & filename & dlm, vbTextCompare) > 0 Then
    Result = 1
    Exit Function
  End If
  For i = Len(filename) - 1 To 1 Step -1
    F = Left(filename, i)
    If InStr(1, dlm & List & dlm, dlm & F & dlm, vbTextCompare) > 0 Then
      Result = 2
      Exit For
    End If
  Next
End Function

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

* = 0001
*0004.jpg = 00010004.jpg