Как облегчить поиск и сравнение файла по его названию?
Предположим есть некий excel-файл содержащий столбец в котором указаны все названия файлов .jpg, наличие или отсутствие которых нужно проверить. Также существует папка со всеми этими .jpg файлами. Согласно данным из excel-файла, в папке должно содержаться 7586 .jpg файлов с уникальными именами, но в папке содержится всего 7382 файла... Вопрос: как обнаружить недостающие .jpg файлы автоматически, не забивая в поиск каждое имя файла друг за другом?
Если без написание программы, то:
Сохрани содержимое папки в текстовый файл. Содержимое текстового файла в эксель в один столбик, а список в другой. Упорядочить каждый столбик по алфавиту. И сравнивай, там где сдвиг имён, значит раньше не хватает файла, находишь, место сдвига и вставляешь пробел, все последующие имена выравниваются, находишь следующий сдвиг и т. д.
***
Правда с кириллическим файлами беда, я не знаю как 866 в 1251 переконвертировать.
Создай пользовательскую функцию
function проверка (а)
Проверка=dir(a)
endfunction
во втором столбце используй формулу =проверка (A1) ...
отфильтруй результат
VBS
' Check if a file exists
Function fileExists(s_directory As String, s_fileName As String) As Boolean
Dim obj_fso As Object
Set obj_fso = CreateObject("Scripting.FileSystemObject")
fileExists = obj_fso.fileExists(s_directory & "\" & s_fileName)
End Function
В цикле проверять
