Como determinar quando cópia termina em VBScript?
-
02-07-2019 - |
Pergunta
Alguém sabe de um método para determinar quando um arquivo copiar terminar em VBScript? Estou usando o seguinte para copiar:
set sa = CreateObject("Shell.Application")
set zip = sa.NameSpace(saveFile)
set Fol = sa.NameSpace(folderToZip)
zip.copyHere (Fol.items)
Solução
Do Until zip.Items.Count = Fol.Items.Count
WScript.Sleep 300
Loop
Quando o laço termina sua cópia for concluído.
Mas se você só quer copiar e não zip, FSO ou WMI é melhor.
Se você está fechando e os quer em um arquivo que você tem que criar o zip-file-se, com o cabeçalho na primeira à direita. Senão você só obter arquivos compactados / pastas IIRC. Algo parecido com isto:
Set FSO = CreateObject( "Scripting.FileSystemObject" )
Set File = FSO.OpenTextFile( saveFile, 2, True )
File.Write "PK" & Chr(5) & Chr(6) & String( 18, Chr(0) )
File.Close
Set File = Nothing
Set FSO = Nothing
A 2 em OpenTextFile é ForWriting.
Outras dicas
Você pode ter melhor sorte usando o método Copy em uma FileSystemObject
. Eu usei-o para copiar, e é uma chamada de bloqueio.
Const FOF_CREATEPROGRESSDLG = &H0&
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
strSource = " " ' Source folder path of log files
strTarget = " .zip" ' backup path where file will be created
AddFilesToZip strSource,strTarget
Function AddFilesToZip (strSource,strTarget)
Set r=fso.GetFolder(strSource)
set file = fso.opentextfile(strTarget,ForWriting,true)
file.write "PK" & chr(5) & chr(6) & string(18,chr(0))
file.Close
Set shl = CreateObject("Shell.Application")
i = 0
For each f in r.Files
If fso.GetExtensionName(f) = "log" Or fso.GetExtensionName(f) = "Log" Or fso.GetExtensionName(f) = "LOG" Then
shl.namespace(strTarget).copyhere(f.Path)', FOF_CREATEPROGRESSDLG
Do until shl.namespace(strTarget).items.count = i
wscript.sleep 300
Loop
End If
i = i + 1
Next
set shl = Nothing
End Function
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow