It has never copied the avatars to the new folder.
EDIT -
set filesObj = imagesFolder.Files
currentAvatarFolder = Server.MapPath(strFinalLocation)
For Each file in filesObj
avatarImageName = file.name
avatarDisplayName = Split(file.name,".")
response.write("Adding :" & avatarDisplayName(0) & " <BR>")
file.Copy currentAvatarFolder,True
'#### Inster into database
Adding the code in red to the admin_avatar_mass_add.asp should do it, I have not tested that code though.