<%
Dim objFSO,objFiles,Vol
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFiles = objFSO.GetFolder(Server.MapPath("uploadphoto"))
For Each Vol in objFiles.Files
if Vol.Name = "10.jpg" then
bjFSO.CopyFile Server.MapPath("10.jpg"),Server.MapPath("100000.jpg"),True
end if
Next
Set objFiles = Nothing
Set objFSO = Nothing
%>