MyTetra Share
Делитесь знаниями!
Доступ к папке
16.03.2019
23:43
Текстовые метки: Доступ к папке
Раздел: !Закладки - VBA - FSO

Sub Procedure1()

Dim strPath As String

strPath = "I:\_My_Site\0RU_DI\Tolerie\01_Echange_Departement\"

'Включение обработчика ошибок. Если в какой-то строке кода возникнет ошибка,

'то макрос перейдёт к следующей строке кода, а не остановится с выдачей сообщения об ошибке.

On Error Resume Next

' If Len(Dir("\\00.00.0.000\folder", vbDirectory)) = 0 Then

If Len(Dir(strPath, vbDirectory)) = 0 Then

'Если будет ошибка, то в объекте "Err" будет число, не равное нулю.

If Err.Number <> 0 Then

MsgBox "Удалённый компьютер выключен.", vbExclamation

'Если ошибки не будет, то будет это сообщение.

Else

MsgBox "нет доступа"

End If

End If

'Отключение обработчика ошибок, чтобы отслеживать непредвиденные ошибки.

On Error GoTo 0

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования