Objfso.Movefile (omdøbe jpg filer i under mapper)

Hej,

Jeg har en mappe med en masse under mapper med en jpg/jpeg fil under hver. Jeg vil gerne have omdøbt alle jpg/jpeg filer til eks. temp.jpg.

Jeg har selv brygget nedenstående sammen, men det virker ikke - Der sker intet.

Option Explicit
Dim WshShell, objFSO, SystemDrive

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim Subfolder, UserPaths

On Error Resume Next

Set UserPaths = objFSO.GetFolder("D:\Test\").Subfolders
For Each Subfolder in UserPaths

objFSO.MoveFile Subfolder & "\*.jpg" , Subfolder & "\temp.jpg", True

Next