.vbs komutu ile ağa girmek

[mozdem]

merhaba;

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("\\192.168.1.1\Mozdem")

vbs dosyası ile ağa giriyorum.
ağa ulaşamadığım zamanlar ise Hata mesajı alıyorum. Bunun yerine "D:\Mozdem" klasörünü açsın,
yardımlarınız için şimdiden teşekkür ederim

 

[askm]

Sub ag()
Set objShell = CreateObject("WScript.Shell")
On Error GoTo Devam
objShell.Run ("\\192.168.1.1\Mozdem")
Exit Sub
Devam:
Call Adres_Ac
End Sub

Sub Adres_Ac()
Dim Adres
Adres = "C:\Program Files"
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub

 

[mozdem]

Sub ag()
Set objShell = CreateObject("WScript.Shell")
On Error GoTo Devam
objShell.Run ("\\192.168.1.1\Mozdem")
Exit Sub
Devam:
Call Adres_Ac
End Sub

Sub Adres_Ac()
Dim Adres
Adres = "C:\Program Files"
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub

Öncelikle yardımınız için teşekkür ederim. Ancak Bu işlemi Excel dosyasında Makro ile değil, VBS Scripti ile yapmak istemiştim.
yardımınızı bekliyorum

 

[askm]

On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
Devam1:
If Err.Number <> 0 Then
objShell.Run ("\\192.168.1.1\Mozdem")
Err.Clear
End If
Devam2:
CreateObject("Shell.Application").Open "C:\Program Files"
[code]

 

[mozdem]

On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
Devam1:
If Err.Number <> 0 Then
objShell.Run ("\\192.168.1.1\Mozdem")
Err.Clear
End If
Devam2:
CreateObject("Shell.Application").Open "C:\Program Files"
[code]

Çok teşekkür ederim, Hata mesajı vermiyor. Ancak ("\\192.168.1.1\Mozdem") yolunu açarken diğer "C:\Program Files" klasörünüde açıyor.
bu hatayı giderebilirmiyiz.