Ee,
ik wil een batchfile maken die automatisch in een bepaalde map alle bestanden met bijv. de extensie .jpg verwijderd.
het liefst nog dat je een tijdstip in kan stellen.
nu heb ik dus het volgende gevonden:
Sub delfile()
Set fs = Application.FileSearch
With fs
.LookIn = "Locatie"
.SearchSubFolders = false
.filename = "*.jpg"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
MsgBox .Filename & " " & .FoundFiles.Count & " No. files found."
Else
MsgBox "There were no files found."
End If
End With
End Sub
maar dat werkt niet.
miss iemand die weet wat ik meot veranderen of iemand die een andere batchfile voor mij kan maken??
ik wil een batchfile maken die automatisch in een bepaalde map alle bestanden met bijv. de extensie .jpg verwijderd.
het liefst nog dat je een tijdstip in kan stellen.
nu heb ik dus het volgende gevonden:
Sub delfile()
Set fs = Application.FileSearch
With fs
.LookIn = "Locatie"
.SearchSubFolders = false
.filename = "*.jpg"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
MsgBox .Filename & " " & .FoundFiles.Count & " No. files found."
Else
MsgBox "There were no files found."
End If
End With
End Sub
maar dat werkt niet.
miss iemand die weet wat ik meot veranderen of iemand die een andere batchfile voor mij kan maken??