Inquiridor
Como deixar visivel a execucao do meu Script

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.
- Editado Reguinalberto Avelino quinta-feira, 28 de dezembro de 2017 23:36
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.
-
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.