Copiar arquivos e pasta com asp

[igadino]

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")
            objFSO.CopyFile "D:\Domains\igadino.com"&request("local")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("local")&"\Copia de "&strFileName&""
            objFSO.CopyFolder "D:\Domains\igadino.com"&request("local")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("local")&"\Copia de "&strFileName&""
             Next ' strFileName
            response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"")    
            else
            For Each strFileName In Request("arquivos")
            objFSO.CopyFile "D:\Domains\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("StartPath")&"\Copia de "&strFileName&""
            objFSO.CopyFolder "D:\Domains\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("StartPath")&"\Copia de "&strFileName&""
            response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"")    
            Next ' strFileName    
            end if

[bareta]

ta confuso isso...

o q realmente não funciona ou q erro q dá?

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

[igadino]

O codigo esta funcionado perfeitamente

E o seguinte

se tem uma pasta com o nome MURAL se mando copiar aparece assim

Copia de MURAL beleza se eu tentado copiar a mesma pasta mural tem que aparecer assim

Copia (2) de MURAL

se copiar novamente tem que aparece assim Copia (3) de MURAL entendeu.

[bareta]

antes de copiar você deve fazer uma busca pelo nome no arquivo....

ai joga num if e define o novo nome de arquivo.

Set fso = CreateObject("Scripting.FileSystemObject")
    if fsoObject.FolderExists(Server.MapPath("Teste")) Then
        Response.Write("Pasta Existe")
    Else
        Response.Write("Pasta não existe")
    end if
Set fso=Nothing

[igadino]

Amigo você não entedeu so quero colocar um numero no inicio da copia

exemplo: se já existe uma pasta como nome dino quando eu copiar a copia ten que vim assim Copia (2) de dino.

[Jonathan Queiroz]

Nesse caso seria interessante você salvar em algum lugar a quantidade de cópias do arquivo. Fazer a verificação de 1 por 1 provavelmente seria bem lento.

[Rafael Spilki]

você tem que seguir a sugestão do Bareta...

Ele só deum um exemplo de tratamento com condicionais... a teoria é exatamente aquela.

você terá de criar uma condicional para verificar se a pasta existe e se existe quantas existem iguais... depois basta adicionar 1 ao nome da pasta e pronto, ou seja, se a última for ex (6) a condicional salvará com ex(7)...

qualquer dúvida posta aqui...

[]'s

[igadino]

Mias não quantas copia vai ser feita

Eu queria fazer o mesmo exemplo do windows explorer.

se você deh CTRL+C e depois CTRL+V cinco vez seguida se a pasta for pedro
a primeira copia será assim

Cópia de pedro e as outras será assimm
Cópia (1) de pedro
Cópia (2) de pedro
Cópia (3) de pedro
Cópia (4) de pedro
Cópia (5) de pedro

Editado Junho 23, 2014 por igadino

[bareta]

então criatura....

ao copiar a primeira tem ver se existe algum arquivo chamado copia de x...

ao copiar de novo, verificar de novo...

existe copia de x ? se sim qual o numero??? e assim vai....

para e pensa... equeça do explorer, porque o q ele faz foi feito por alguém e essa lógica q você tem q entender.

[igadino]

ninguém ainda conseguiu? estou no aguardo.

[bareta]

fechando, antigo d+