Мне нужно прочитать тысячи .txt файлов; когда я пытаюсь прочитать один файл, который, кажется, поврежден (потому что windows даже очень трудно открыть его или показать предварительный просмотр), это выдает мне сообщение об ошибке:
Изображение окна ошибки
это код
74 Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(File.Path,1)
75
76 Do while not objFileToRead.AtEndOfStream
77 strLine = objFileToRead.ReadLine()
78 Wscript.echo strLine
79 loop
Я попробовал On Error Resume Next
, полезный, чтобы избежать сообщения об ошибке, но это останавливает процедуру и не читает дополнительные файлы .txt.
Знаете ли вы, как проверить, не поврежден ли файл, чтобы я мог избежать их или исправить файл? если я пропустил одну из этих тысяч, в конце концов, это не имеет большого значения.