VBS - Do While Schleife - zusätzliche Bedingung

Hallo,
in einem Ordner sollen alle jpg- und pdf-Datein durchlaufen werden, umbenannt und verschoben werden.
Das funktioniert auch tadellos, allerdings hatte sich in der Praxis schon ab und zu mal eine "fremde" Datei dahin verirrt (manchmal einfach auch nur eine "Thumbs.db"), und damit wird Files.count niemals 0. Innerhalb der Schleife verarbeite ich aber nur jpg und pdf. Löschen möchte ich aber eine "verirrte" Datei auch nicht einfach so. Wie kann ich also prüfen, ob sich keine jpg- oder pdf-Datei mehr darin befindet? Es gibt doch bestimmt eine elegantere Lösung als innerhalb der Schleife prüfen ob es sich nicht um einen der beiden Dateitypen handelt und dann in einen Schrott-Ordner verschieben?


Vielen Dank im Voraus!
Torsten

Dim c
c = objFSO.GetFolder("D:\").Files.count  
Do While c > 0
   [Verarbeiten und Verschieben von jpg- bzw. pdf-Datei]
  c = c - 1  'egal, ob die Datei gelöscht wurde oder nicht  
Loop

Set objFSO = CreateObject("Scripting.FileSystemObject")  

For Each file In objFSO.GetFolder("D:\Test").files  
	If Right(file.Name,4) = ".jpg" or Right(file.Name,4) = ".pdf" Then  
		[Verarbeiten und Verschieben von jpg- bzw. pdf-Datei] 
	End If
Next