Copiar arquivos e pasta com asp

[igadino 0]

Pessoal estou tentando copiar arquivos/pasta com este codigo ele esta funcionando perfeitamente so que quando eu copiar um arquivos/pasta

exemplo: vou copiar a pasta de nome MURAL ela aparece assim Copia de MURAL muito bem se eu tentar copiar novamente tem que aparecer assim Copia (2) de MURAL igual a do windows explorer quando agente dar CTRL+C e CTRL+V e assim por diante

 

 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

if not request("local")="" then

For Each strFileName In Request("arquivos")

If objFSO.FileExists( Server.MapPath("D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"") ) or objFSO.FolderExists( Server.MapPath("D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"") ) Then

objFSO.CopyFile "D:\Websites\igadino\igadino.com"&request("local")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("local")&"\Copia ("&n&") de "&strFileName&""

objFSO.CopyFolder "D:\Websites\igadino\igadino.com"&request("local")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("local")&"\Copia ("&n&") de "&strFileName&""

else

n = 1

objFSO.CopyFile "D:\Websites\igadino\igadino.com"&request("local")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("local")&"\Copia de "&strFileName&""

objFSO.CopyFolder "D:\Websites\igadino\igadino.com"&request("local")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("local")&"\Copia de "&strFileName&""

n = n + 1

end if

Next ' strFileName

' response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"")

else

For Each strFileName In Request("arquivos")

If objFSO.FileExists( Server.MapPath("D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"") ) or objFSO.FolderExists( Server.MapPath("D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"") ) Then

objFSO.CopyFile "D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("StartPath")&"\Copia ("&n1&") de "&strFileName&""

objFSO.CopyFolder "D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("StartPath")&"\Copia ("&n1&") de"&strFileName&""

else

n1 = 1

objFSO.CopyFile "D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("StartPath")&"\Copia de "&strFileName&""

objFSO.CopyFolder "D:\Websites\igadino\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Websites\igadino\igadino.com"&request("StartPath")&"\Copia de"&strFileName&""

n1 = n1 + 1

response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"")

end if

Next ' strFileName

end if

[xanburzum 169]

usa um code tipo webexplorer, coloquei alguns exemplos no lab. de script