Подскажите, плиз, как проверить пустой ли файл?
Хочу прочитать его с помощью ReadAll
Код

Set f = fso.OpenTextFile(direct & "test.txt",ForReading,True,Unicode)
TxtContent = f.ReadAll
f.close


ошибка: Ввод данных за пределами файла

Через FileSize делать и не заморачиваться :)

http://msdn.microsoft.com/en-us/library/ffk3x3bw(v=vs.84).aspx

цикл решает.
Как-то делать через сравнение байтовое не камильфо)

(3) Чойта не комильфо? Пустой файл - по определению файл размером 0 байт, все дела. Тем более FileSize гораздо быстрее, чем чтение файла.

+(4) Да и нельзя читать пустой файл, кстати. Это особенность VBS. Только через атрибут Size или функцией FileSize.

(5) Ок. Спасибо))

А чем штатный способ проверки из (2) не устраивает?