none
Copiar e mover arquivos via vbscript RRS feed

  • Pergunta

  • Criei um processo para cópia e move de arquivos, porém eu preciso adicionar um IF, por exemplo se existir qualquer arquivo .csv no diretório ele inicia o copy e move, alguém pode me ajudar?

    objFSO.CopyFile "\\servidor\diretorio\*.CSV", "\\servidor_1\diretorio_1\"
    objFSO.MoveFile \\servidor\diretorio\*.CSV","\\servidor\diretorio\enviado"

    Obrigado

    terça-feira, 16 de junho de 2015 17:42

Respostas

  • Andre,

    Para verificar se existe algum arquivo com a extensão ".csv" utilize o comando DIR como indicado no script abaixo:

    Dim vArq As String
    
    vArq = Dir("C:\teste\*.csv")
    
    If vArq <> "" Then
       MsgBox "Existe 1 ou mais arquivos .CSV"
    End If
    
    End Sub
    

    Faça os ajustes necessários para adaptar à sua necessidade.

    Se ajudou na sua solução, não esqueça de marcar como resposta !

    Abraços,

    Durval Ramos
    Microsoft Partner | MTA | MCSA - SQL Server 2012 | MCSE - Data Platform
    ----------------------------------
    Se foi resolvido clique "Marcar como resposta" e se foi útil "Votar como Útil"

    • Marcado como Resposta Andrehz terça-feira, 16 de junho de 2015 19:10
    terça-feira, 16 de junho de 2015 17:55