Подскажите пожалуйста функцию на VBS которая проверяет файл на чтение
1 ответ
Попытаться открыть файл на чтение и посмотреть что получится
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 ' Включаем исключения обратно
-
-
@Павел если мой ответ решил вашу проблему, то отметьте его как верный 27 янв 2021 в 7:20