01.<%
02. Dim objFSO,objFiles,Vol
03. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
04. set objFiles = objFSO.GetFolder(Server.MapPath("uploadphoto"))
05. For Each Vol in objFiles.Files
06. if Vol.Name = "10.jpg" then
07. bjFSO.CopyFile Server.MapPath("10.jpg"),Server.MapPath("100000.jpg"),True
08. end if
09. Next
10. Set objFiles = Nothing
11. Set objFSO = Nothing
12.%>
