none
Script para copiar arquivos dentro de uma pasta ja existente RRS feed

  • Pergunta

  •  

    Boa tarde,

     

    Possuo esse script para criar uma pasta com a data do dia:

     

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\arquivos-via" , "f:\"&dd& "-" &mt& "-"&yy& "\", OverwriteExisting

     

    E preciso de um outro script que copie todos as pastas e arquivos, ocultos ou não para dentro desta pasta que é criada pelo script a cima.

     

    Tentei usar este, somente subistituindo o nome do arquivo pelas variáveis do mesmo script a cima, mas não deu certo:

     

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\arquivos-via" , "f:\"&dd& "-" &mt& "-"&yy& "\" , OverwriteExisting

     

    Alguém pode me ajudar?

     

    Abraço

     

     

     

    sexta-feira, 17 de agosto de 2007 19:48

Respostas

  • Veja isso. É um script em Windows Powershell:


    $pasta = "{0} Backup" -f (date).toString('yyyy-MM-dd')
    $dir = mkdir $pasta
    copy c:\pasta1, $dir

    Basta executar na linha de comando ou então salvar com a extensão .PS1 e executar.

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    sábado, 18 de agosto de 2007 13:51
    Moderador
  • Paulo, tente executar este script aqui que criei, testei e está funcionando perfeitamente inclusive copiando os arquivos e pastas ocultos.

     

     

     

    set shell = createObject("Shell.Application")
    set FSO = CreateObject("Scripting.FileSystemObject")

     

    data = date()

     

    pasta = "f:\" & replace(DATA,"/","-")                  ' variável que recebe o caminho e nome da pasta

               

      if fso.folderexists (pasta) then                         ' verifica a existência da pasta no dirve F
           set shell2 = shell.namespace(pasta)          ' pasta de destino
           shell2.copyhere "C:\arquivos-via", &H10&   ' pasta de origem
        
       else
           pasta = fso.createFolder (pasta)
           set shell2 = shell.namespace(pasta)
           shell2.copyhere "C:\arquivos-via", &H10&    


      end if

     

     

     

    Grande abraço

     

    segunda-feira, 20 de agosto de 2007 14:06

Todas as Respostas

  • Veja isso. É um script em Windows Powershell:


    $pasta = "{0} Backup" -f (date).toString('yyyy-MM-dd')
    $dir = mkdir $pasta
    copy c:\pasta1, $dir

    Basta executar na linha de comando ou então salvar com a extensão .PS1 e executar.

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    sábado, 18 de agosto de 2007 13:51
    Moderador
  • Paulo, tente executar este script aqui que criei, testei e está funcionando perfeitamente inclusive copiando os arquivos e pastas ocultos.

     

     

     

    set shell = createObject("Shell.Application")
    set FSO = CreateObject("Scripting.FileSystemObject")

     

    data = date()

     

    pasta = "f:\" & replace(DATA,"/","-")                  ' variável que recebe o caminho e nome da pasta

               

      if fso.folderexists (pasta) then                         ' verifica a existência da pasta no dirve F
           set shell2 = shell.namespace(pasta)          ' pasta de destino
           shell2.copyhere "C:\arquivos-via", &H10&   ' pasta de origem
        
       else
           pasta = fso.createFolder (pasta)
           set shell2 = shell.namespace(pasta)
           shell2.copyhere "C:\arquivos-via", &H10&    


      end if

     

     

     

    Grande abraço

     

    segunda-feira, 20 de agosto de 2007 14:06
  • Welington,

    Como faço para gerar um log dos arquivos copiados desse script ?

    set shell = createObject("Shell.Application")
    set FSO = CreateObject("Scripting.FileSystemObject")

     

    data = date()

     

    pasta = "f:\" & replace(DATA,"/","-")                  ' variável que recebe o caminho e nome da pasta

               

      if fso.folderexists (pasta) then                         ' verifica a existência da pasta no dirve F
           set shell2 = shell.namespace(pasta)          ' pasta de destino
           shell2.copyhere "C:\arquivos-via", &H10&   ' pasta de origem
        
       else
           pasta = fso.createFolder (pasta)
           set shell2 = shell.namespace(pasta)
           shell2.copyhere "C:\arquivos-via", &H10&    


      end if

    sexta-feira, 8 de abril de 2011 13:52