Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Windows-Verknüpfung überprüfen

Windows-Verknüpfung überprüfen
04.04.2008 14:07:55
Waven
Hallo Zusammen
Gibt es eine Möglichkeit mit vba eine Windows-Verknüpfung (.lnk) zu überprüfen, ob die Datei noch vorhanden ist?
Danke für eure Antworten!
Gruss
Waven

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Windows-Verknüpfung überprüfen
04.04.2008 16:05:05
Raven
Hi,
wie jetzt, ob der link selbst existiert oder die Datei, mit der der link verknüpft ist?
mfg R.

AW: Windows-Verknüpfung überprüfen
04.04.2008 16:54:35
anton
Hallo Waven,
so z.B.

Sub b()
  Dim objFS As Object  
  Dim WshShell As Object  
  Set WshShell = CreateObject("WScript.Shell")  
  Set objFS = CreateObject("scripting.filesystemobject")  
  strPfad = "C:\Dokumente und Einstellungen\All Users\Desktop\ICQ 5.1.lnk"  'anpassen
  Set oShellVerknuepfung = WshShell.CreateShortcut(strPfad)
  If objFS.FileExists(oShellVerknuepfung.TargetPath) Then  
    MsgBox oShellVerknuepfung.TargetPath
  Else
    MsgBox "Datei " & oShellVerknuepfung.TargetPath & " existiert nicht."
  End If  
  Set WshShell = Nothing  
  Set objFS = Nothing  
End Sub  

mfg Anton
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige