SCRIPT – busca e copia arquivos para pasta destino

‘SCRIPT – busca e copia arquivos para pasta destino
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
Set FSO = CreateObject("Scripting.FileSystemObject")
‘PARTE DO ARQUIVO QUE É COMUM PARA TODOS
strArquivo = "001"
‘PASTA ONDE PROCURAR
strPasta = "C:\teste"
ShowSubfolders FSO.GetFolder(strPasta)
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
       Set colFiles = objWMIService.ExecQuery _
           ("ASSOCIATORS OF {Win32_Directory.Name=’" & SubFolder.path & "’} Where " _
               & "ResultClass = CIM_DataFile")       
            For Each objFile in colFiles
               if TRIM(MID(objFIle.filename,1,Len(strArquivo))) = TRIM(strArquivo) Then
‘PASTA ONDE SALVA OS ARQUIVOS
                  FSO.CopyFile objFile.name , "C:\teste\" & objFile.filename & "." & objFile.extension, TRUE
               End if
            Next
        ShowSubFolders Subfolder
    Next
End Sub
msgbox "Verifique os arquivos na pasta de destino"

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s