Netzerkdateiexistenz prüfen

[Sneakmaster]

Wie ist es möglich, auf eine bestimmte Datei (freigegeben) im Netzwerk zuzugreifen?
Dabei ist allerdings zu beachten, dass das Programm vorher Prüfen muss ob diese
freigegebene Datei überhaupt im Netzwerk existiert bzw. ob die Verbindung zu einen
bestimmten PC besteht.
Hab es schon über die Dateierkennung ( siehe Forum vor ca 2Wochen ) probiert aber bei nicht existenter Verbindung bringt er mir einen Fehler, da ja
"\\Computername\Freigegebener Ordner\Datei" in diesem Fall nicht mehr existiert.

 

[Shakie]

Ob eine Datei existiert kannst du immer mit Dir/Dir$ prüfen, egal ob die Datei eine Netzwerkdatei ist oder nicht. Den erzeugten Fehler fängst du einfach ab oder ignorierst ihn:

On Error Resume Next
If VBA.LCase$(Dir$("\\Computername\Ordner\Datei.txt", vbNormal)) <> "datei.txt" Then
  Err.Clear	 'Fehler verwerfen, falls einer entstanden ist
  MsgBox "Datei existiert nicht!"
Else
  MsgBox "Datei existiert!"
End If

Hier wird der Fehler ignoriert und es wird in die nächste Zeile gesprungen, also zu <MsgBox "Datei existiert nicht!">

 

[Sneakmaster]

Danke für die schnelle Hilfe, werd ich gleich mal ausprobieren.