PC dışında ağ yolu gösterme

[SCetin25]

Merhabalar, bilgisayarımda dosya yolundaki excel dosyasını kontrol ettiriyorum, aynı dosyayı ağda kontrol ettirdiğimde hata alıyorum.
Ağ yolu için farklı bir şey mi yapmam gerek, sitede araştırdım fakat göremedim. Yardımcı olabilirseniz çok sevinirim.

If Dir("\\192.168.1.2\Share$\mac.xlsx") = "" And Dir("\\10.1.11.3\OTS-Yazilim$\mac.xlsx") = "" And Dir("C:\Windows\System32\drivers\mac.xlsx") = "" Then
Application.Visible = False
MsgBox "Key Yok ! Kullanılamaz !", vbInformation, "Sorry"
Application.Quit
ActiveWorkbook.Close False
Exit For

 

[Korhan Ayhan]

Merhaba,

Belki aşağıdaki yöntem işinize yarayabilir..

Option Explicit

Sub Test()
    With CreateObject("Scripting.FileSystemObject")
        MsgBox .FileExists("\\192.168.1.2\Share$\mac.xlsx")
        MsgBox .FileExists("\\10.1.11.3\OTS-Yazilim$\mac.xlsx")
        MsgBox .FileExists("C:\Windows\System32\drivers\mac.xlsx")
    End With
End Sub