Ir para conteúdo

Arquivado

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

igadino

Copiar arquivos e pasta em asp

Por , em ASP Clássico

Recommended Posts

igadino    0

igadino
Postado

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

xanburzum    169

xanburzum
Postado

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

igadino    0

igadino
Postado

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

xanburzum    169

xanburzum
Postado

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

igadino    0

igadino
Postado

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

xanburzum    169

xanburzum
Postado

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

igadino    0

igadino
Postado

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

xanburzum    169

xanburzum
Postado

copia ele antes depois renomeia

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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

xanburzum    169

xanburzum
Postado

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

xanburzum    169

xanburzum
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

acabei de enviar

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

no gmail

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito