Dateien anhand Liste löschen ....

Thomas · 2005-12-19T18:28:55+00:00

Hallo! Ich betreibe einen Online-Shop und in diesem Shop habe ich im Laufe der Zeit ca. 20.000 Artikel importiert... Dazu habe ich auch per FTP die Bilder hochgeladen, leider sind das mitlerweise 65.000 Stück also zuviele! Kennt jemand eine Möglichkeit, wenn ich die Dateinamen in einer Excel - Spalte habe und in einem Verzeichnis die passenden Bilddateien,wie man dann per VBA die NICHT in der Liste enthaltenen Dateien löschen kann? Danke für eure Hilfe Thomas ... P.S.: Für die Frage: "Warum machst Du das nicht der Script online?" ... diese Funktion bietet mein Shop, aber bei 65000 Bildern ging jeder Server in die Knie und mit einer localen Installation passierte das gleiche ...

Hallo Ransi!
Also wenn ich das so eingebe:
Public


Sub test()
const pfad='C:\Programme\AppServ\www\oxid3\out\oxbaseshop\html\0\dyn_images\0
Dim gefunden
With Application.FileSearch
.NewSearch
.LookIn = pfad
.SearchSubFolders = True
.Filename = "*"
.Execute
For Each gefunden In .FoundFiles
If WorksheetFunction.CountIf(Range("C:C"), gefunden) = 0 Then Kill (gefunden)
Next
End With
End Sub

... dann bekomme ich eine Fehlermeldung ... Syntax ...
Folgende Tests habe ich dann gamacht:
' gelöscht oder ' dahinter oder /statt\ ... hatt aber alles nix genützt
Was habe ich denn falsch gemacht? (Ich habe in Spalte C nur den Dateinamen stehen, wird da doch noch der Pfad benötigt?)
Ach und noch eine Frage:
Löscht diese Abrage die Dateien die in der Liste stehen oder die nicht in der Liste stehen, denn die Liste in Spalte C beinhaltet alle Dateinamen die benötigt werden ...

hallo thomas
setz den Pfad mal in anführungsstriche
const pfad="C:\Programme\AppServ\www\oxid3\out\oxbaseshop\html\0\dyn_images\0"
in spalte C stehen jetzt also die dateinamen mit vollständiger Pfadangabe?
Also sowas ähnliches wie:
C:\Programme\AppServ\www\oxid3\out\oxbaseshop\html\0\dyn_images\0\bild1.jpg ?
wenn das so ist müsste das hier laufen.


Sub test()
const pfad="C:\Programme\AppServ\www\oxid3\out\oxbaseshop\html\0\dyn_images\0"
Dim gefunden
With Application.FileSearch
.NewSearch
.LookIn = pfad
.SearchSubFolders = True
.Filename = "*"
.Execute
For Each gefunden In .FoundFiles
If WorksheetFunction.CountIf(Range("C:C"), gefunden) = 0 Then Kill (gefunden)
Next
End With
End Sub

wenn in spalte C nur die namen der dateien mit endung liegen sollte das hier gehen:


Sub test()
const pfad="C:\Programme\AppServ\www\oxid3\out\oxbaseshop\html\0\dyn_images\0"
Dim gefunden
With Application.FileSearch
.NewSearch
.LookIn = pfad
.SearchSubFolders = True
.Filename = "*"
.Execute
For Each gefunden In .FoundFiles
If WorksheetFunction.CountIf(Range("C:C"), dir(gefunden)) = 0 Then Kill (gefunden)
Next
End With
End Sub

das makro soll die löschen die NICHT in Spalte C aufgeführt sind.
Aber wie ich schon schrieb.
Lass das ganze erst mal mit sicherheitskopien laufen.
ransi

Dateien anhand Liste löschen ....

Forumthread: Dateien anhand Liste löschen ....

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial