Option Explicit
app.ClearTrace

' Define the variables
dim alb, nb, i, pic, s

set alb = app.GetCurrentAlbum

nb = alb.nbPicture
for i=0 to nb-1
    Set pic = alb.GetPicture(i)
    s = "D:" & mid(pic.sFileName,3)
    app.Trace s
    pic.sFileName = s
next

app.Trace "Done !"