dim fso
dim fld
dim fil
 
set fso=createobject("scripting.filesystemobject")
 
set fld=fso.getfolder("d:\irgendwas")
 
for each fil in fld.files
 
fil.name="juhu - " & fil.name
 
next
 
set fil=nothing
set fld=nothing
set fso=nothing

EALA FREYA FRESENA