Имя: Пароль:
IT
 
vbs чтение из файла
,
0 CalvinKlein
 
04.07.13
14:05
Подскажите, плиз, как проверить пустой ли файл?
Хочу прочитать его с помощью ReadAll
Код

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


ошибка: Ввод данных за пределами файла
1 Маратыч
 
04.07.13
14:07
Через FileSize делать и не заморачиваться :)
2 Jaap Vduul
 
04.07.13
14:13
3 CalvinKlein
 
04.07.13
14:18
цикл решает.
Как-то делать через сравнение байтовое не камильфо)
4 Маратыч
 
04.07.13
14:22
(3) Чойта не комильфо? Пустой файл - по определению файл размером 0 байт, все дела. Тем более FileSize гораздо быстрее, чем чтение файла.
5 Маратыч
 
04.07.13
14:25
+(4) Да и нельзя читать пустой файл, кстати. Это особенность VBS. Только через атрибут Size или функцией FileSize.
6 CalvinKlein
 
04.07.13
14:43
(5) Ок. Спасибо))
7 Jaap Vduul
 
04.07.13
15:03
А чем штатный способ проверки из (2) не устраивает?
AdBlock убивает бесплатный контент. 1Сергей