Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

igadino

Copiar arquivos e pasta em asp

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

use uma função para renomear os arquivos, postei alguns exemplos no fórum, pode te ajudar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Será se tem como criar uma condicional para verificar se a pasta/arquivos existe e se existe depois basta adicionar 1 ao nome da pasta/arquivos ou seja um for ex (6) a condicional salvará com ex(7)...

 

sera se tem alguem para fazer para mim?

Compartilhar este post


Link para o post
Compartilhar em outros sites

sim, através do folderexists do FSO se tiver, renomeie, pegando o nome e adicionando o 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

e isso que nao estou conseguindo fazer o tal do renomeio pegando o nome e adcionado 1, porque tem que

ser feito um for esse que e o problema.

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo

 


<%@ Language=VBScript %>
    <HTML>
    <BODY>
    <%
'Renomeação em massa, de vários arquivos
'O arquivo de origem é dscf0555.jpg e vamos alterar seu nome para luta1.jpg
'a variável N, é o resultado da renomeação em massa em alta velocidade


    Dim objFileScripting, objFolder
    Dim filename, filecollection, strDirectoryPath, strUrlPath

        strDirectoryPath="C:\Inetpub\wwwroot\directory\"
        strUrlPath="\directory\"
        
        Set objFileScripting = CreateObject("Scripting.FileSystemObject")
        Set objFolder = objFileScripting.GetFolder("C:\Inetpub\wwwroot\directory\")
        Set filecollection = objFolder.Files
Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
 'Start the count
n = 1
        For Each filename In filecollection
            Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
            fso.MoveFile "C:\Inetpub\wwwroot\directory\"&filename, "C:\Inetpub\wwwroot\directory\newname"&n&".jpg"
          n = n + 1
        Next
    %>
    </BODY>
    </HTML>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Já fiz assim mais não dah certo eu tenho que copiar e não renomear o arquivos ORIGINAL tem que ficar intacto eu tenho que fazer somente as copias se necessario.

 

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

For Each strFileName In Request("arquivos")

strFileName=right(strFileName,len(strFileName)-InStrRev(strFileName, "\")

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

n = 1

n = n + 1

Next

Compartilhar este post


Link para o post
Compartilhar em outros sites

copia ele antes depois renomeia

Compartilhar este post


Link para o post
Compartilhar em outros sites

dá uma olhada no fórum que postei um exemplo de web explorer, tem isso que vc quer.

Compartilhar este post


Link para o post
Compartilhar em outros sites

também... você pode usar este ou se quiser me mande um email que te passo um bem legal, com as mesmas funcionalidades do explorer do windows.

Compartilhar este post


Link para o post
Compartilhar em outros sites

chegando em casa, após o jogo do Brasil te mando

Compartilhar este post


Link para o post
Compartilhar em outros sites

acabei de enviar

Compartilhar este post


Link para o post
Compartilhar em outros sites

no gmail

Compartilhar este post


Link para o post
Compartilhar em outros sites

estranho... não recebi nenhuma mensagem de erro. Pode ser que o Gmail entendeu o código como malicioso. Mas mando no igadino@yahoo.com.br

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.