bildernamen in liste / ordner vergleich
20.07.2005 21:05:28
rocketfox
gibt es eine möglichkeit zu testen ob die bildnamen in spalte B zb in ordner c:/bilder auch wirklich drin sind?
Uwe d hat mit den tip gegeben wie es geht
Sub bild()
Dim SP%, LR%, Pfad$, i%, JaNein
SP = 1 'Spalte A
LR = ActiveSheet.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Pfad = "C:\Temp\" ' anpassen
Columns(SP + 1).Insert
For i = 1 To LR
JaNein = Dir(Pfad & Cells(i, SP))
ActiveSheet.Cells(i, SP + 1) = IIf(JaNein <> "", "noch da", "nicht gefunden")
Next i
End Sub
leider weiss ich nicht wie ich mit dem umgehen kann daher die frage ob mir das jemand in die tabelle einfügen kann?
hier der link zur tabelle
www.racefire.de/privat/bildlistetest.xls