none
Como deixar visivel a execucao do meu Script RRS feed

  • Pergunta

  • Boa noite, 

    Inicialmente eu precisava de um script que organizasse meus arquivos por data de criação. Consegui o script no pesquisando no seguinte tópico aqui mesmo na Technet: "Script para copiar arquivos e criar pasta todos da mesma data".

    Gostaria de saber se é possível deixar o processamento do script visível para que eu acompanhe o status do processo. Pois tenho algo em torno de 500gb de arquivos para fazer a organização em pastas, e o script como está fica rodando em segundo plano e eu não consigo visualizar o processo, só sei que está funcionando por que vejo a pasta de destino que eu criei aumento o seu tamanho.

    Desde já muito grato.



    quinta-feira, 28 de dezembro de 2017 23:35

Todas as Respostas

  • Ola Reguinalberto, 

    Se o script for em Powershell, adicione a funçao de Write-Host. Se o script for em VBS, adicione a funçao de ECHO. 

    Abraços.


    MCSE: Messaging | MCSA: Windows Server 2012 | MS: Virtualization | VCP-DCV 6 | ITIL v3 | Blog: signorellidenis.wordpress.com | Portal MCP: www.mycertprofile.com/Profile/996021735 | Lembre-se, caso a dica lhe foi útil, marcar como resposta. Assim mantemos a organização no fórum, e incentivamos aos demais que continuem ajudar a quem necessite.

    sábado, 30 de dezembro de 2017 14:23
  • Denis, obrigado pela ajuda, sou novato com relação a scripts. Vou postar o scritp que estou utilizando, teria como vc me informar em qual local eu acrescento a função ECHO?

    ---SCRIPT---

    On Error Resume Next
      Dim fso, folder, files, sOrigem, sDestino, s_Destino_Org, file
     
      Set fso = CreateObject("Scripting.FileSystemObject")
      sOrigem = Wscript.Arguments.Item(0)
      sDestino = Wscript.Arguments.Item(1)

      If sOrigem = "" Then
          Wscript.Echo "Passe o parametro pasta Origem"
          Wscript.Quit
      End If

      If sDestino = "" Then
          Wscript.Echo "Passe o parametro pasta Destino"
          Wscript.Quit
      End If

      Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
      Set folder = fso.GetFolder(sOrigem)
      Set files = folder.Files
     
      For each folderIdx In files
        If not fso.FolderExists(sDestino & "\" & Year(folderIdx.datecreated)) Then
            fso.CreateFolder(sDestino & "\" & Year(folderIdx.datecreated)) 
        End If

        If not fso.FolderExists(sDestino & "\" & Year(folderIdx.datecreated) & "\" & Month(folderIdx.datecreated)) Then
           fso.CreateFolder(sDestino & "\" & Year(folderIdx.datecreated) & "\" & Month(folderIdx.datecreated)) 
        End If

        If not fso.FolderExists(sDestino & "\" & Year(folderIdx.datecreated) & "\" & Month(folderIdx.datecreated) & "\" & Day(folderIdx.datecreated)) Then
           fso.CreateFolder(sDestino & "\" & Year(folderIdx.datecreated) & "\" & Month(folderIdx.datecreated) & "\" & Day(folderIdx.datecreated)) 
        End If
            
        sDestino_Org = sDestino & "\" & Year(folderIdx.datecreated) & "\" & Month(folderIdx.datecreated) & "\" & Day(folderIdx.datecreated) & "\"
        file = folder & "\" & folderIdx.Name
         fso.CopyFile file, SDestino_Org
         fso.DeleteFile(file)
    Next

    ----- FINAL SCRIPT-----

    Desde já muito grato.

    quarta-feira, 3 de janeiro de 2018 15:41