Atualmente estou preso em um problema com o VBScript. Eu preciso copiar os arquivos da pasta F para a pasta G se certos critérios forem atendidos.
Existem muitos arquivos na pasta F com nomes como estes:
Arquivo A: 1234 2016_07_24 1923
Arquivo B: 1234 2016_07_25 1923
Arquivo C: 5678 2016_07_24 1259
Arquivo D: 5678 2016_07_24 1859
Os primeiros quatro dígitos representam um ID, o próximo é uma data, seguido do horário.
Se a pasta F consiste em Arquivos A, B, C e D, então eu preciso copiar apenas os Arquivos B e D, já que o Arquivo A é apenas uma versão mais antiga do Arquivo B e o Arquivo C é similarmente uma versão mais antiga do Arquivo D .
Espero ter descrito meu problema com precisão. Qualquer ajuda seria muito apreciada!
Isso é o que eu tenho até agora.
option explicit
dim objfso : set objFSO = createobject("scripting.filesystemobject")
dim objstr, objend, objtyp, objfile, objkey
dim folder, subfolder
objstr = "C:\Users\Sebastian\Desktop\F"
objend = "C:\Users\Sebastian\Desktop\G\"
objkey = "test123"
For each objfile in objfso.getfolder(objstr).files
If InStr(objfile.Name, objkey) And Not objFSO.fileexists(objend) Then
objfile.Copy objend
End If
Next
MsgBox "finished", vbinformation
Tags vbscript