VB6 - arquivo .bat criado não funciona

[ricardoweb084]

Olá

Criei um arquivo .bat através do vb6 para executar um backup e depois deletá-lo.

Acontece que este arquivo bat criado pelo vb6 simplesmente não executa as instruções, ele abre e fecha e não acontece nada.

O arquivo .bat original, criado manualmente em ambiente Windows, executa todas as instruções normalmente.

Se eu abro manualmente o arquivo gerado pelo vb6 e o criado por mim, são idênticos, exceto pelo fato do arquivo criado no vb6 ter 0,5KB a menos, não descobri o porquê.

Segue minha rotina.

Public Function mBKP_Execute()
    Dim conexao As String
    Dim ReadData As String
    Dim FSO As New FileSystemObject
    Dim arqtxt As TextStream
    Dim n As Variant

' UNCRYPT
    Open App.Path & "\archive.bat" For Input As #1

    Do Until EOF(1)
       Line Input #1, ReadData
        If conexao = Empty Then
            conexao = co0e(ReadData)
            Else
            conexao = conexao & Chr(13) & co0e(ReadData)
        End If
        If Not Left(ReadData, 1) = "*" Then
        End If
    Loop

' CRIA

    Set arq2 = FSO.OpenTextFile(App.Path & "\temp.bat", ForReading, True)
    sArq = arq2.ReadAll
    
    Set arqtxt = FSO.CreateTextFile(App.Path & "\temp.bat", True, False)
    With arqtxt
        .WriteLine (conexao)
        .Close
    End With
    
    Close #1
    

' EXECUTA
    Shell App.Path & "\temp.bat", vbHide
    
' DELETA
    Kill App.Path & "\temp.bat"
    
ReadData = Empty: conexao = Empty: Set FSO = Nothing: Set arqtxt = Nothing
End Function

 

Se alguém tiver alguma ideia de como fazer o Vb6 gerar um .bat funcional, ficarei grato

Editado Julho 18, 2022 por ricardoweb084