none
Copiar arquivo em VBScript RRS feed

  • Pergunta

  • Gostaria de saber se alguem sabe como copiar um arquivo .xml byte a byte ou caracter a caracter em VBS.

    Desde já agradeço.

    quarta-feira, 20 de setembro de 2017 20:18

Todas as Respostas

  • Chagas,

    Verifica se o script abaixo te ajuda, ele copiar lina a linha de um arquivo e pasta para outro arquivo.

    strNomeArquivo = "D:\arquivo.xml"
    strArquivoDiferente = "D:\arquivo2.xml"
    
    Dim fso
    Set fso = CreateObject("Scripting.Filesystemobject")
    
    If fso.FileExists(strNomeArquivo) Then
       Set obj = fso.OpenTextFile(strNomeArquivo,1,true)
       Set Obj2 = fso.OpenTextFile(strArquivoDiferente,2, True)
       
      contLinha = 0
      Do While obj.AtEndOfStream = False
          contLinha = contLinha + 1
          linha = obj.ReadLine
           
                 obj2.WriteLine(linha)
       Loop
    Else
       MsgBox("Arquivo não encontrado!")
    End If

    quinta-feira, 21 de setembro de 2017 14:13
  • Carlos, 

    usei teu código aqui, mas está dando uma mensagem de erro, copilou direito no teu?

    diz que o caracter é invalido na linha 1 e caract 1 

    quinta-feira, 21 de setembro de 2017 19:41
  • Chagas,

    Realizei teste aqui esta normal, para testar você abre o bloco de notas copia o código e salva com a extensão .vbs

     

    quinta-feira, 21 de setembro de 2017 19:47