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
