Filesearch VBA geht nicht mehr ...
10.09.2007 14:46:00
Thomas
Ich hatte vor zwei Jahren mal einen VBA Code von euch bekommen, mit dem man Dateien in einem Verzeichnis löschen kann, die nicht in der Liste enthalten sind ...
LEIDER bin ich jetzt auf Excel 2007 umgestiegen und das teil geht nicht mehr ...
Hier der Code:
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
. . . was muss man ändern damit das wieder geht?
(P.S.: von VBA habe ich keine Ahnung ...)