0

Подскажите пожалуйста функцию на VBS которая проверяет файл на чтение

1 ответ 1

0

Попытаться открыть файл на чтение и посмотреть что получится

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next ' Отключаем штатные исключения
Set f = fs.OpenTextFile("1.csv", ForReading, False, TristateFalse)
If Err.Number = 0 Then
  f.Close
  WScript.Echo "OK"
Else
  WScript.Echo "Failed"
End If
On Error GoTo 0  ' Включаем исключения обратно
2
  • Огромное спасибо за помощь
    – Павел
    26 янв 2021 в 22:41
  • @Павел если мой ответ решил вашу проблему, то отметьте его как верный 27 янв 2021 в 7:20

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.