Makro soll enden, wenn USB Stick n.v.
15.04.2021 10:14:27
Christian
eine kurze Frage,
benutze unten stehendes Makro.
Das Laufwerk E befindet sich auf einem USB Stick.
Bislang kommt die Meldung "Pfad nicht gefunden", wenn der Stick nicht am Laptop eingesteckt ist. Gibt es die Möglichkeit, diese Meldung auszuschalten, sodass einfach ohne das die Dateien von Laufwerk E aufgelistet werden, die Spalte B leerbleibt?
Und entsprechend auch keine Fehlermeldung kommt?
Sub DateienAuflisten()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("D:\Bilder")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 1
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
Set objVerzeichnis = objFileSystem.GetFolder("E:\Bilder")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 1
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub