Jump to content
Fórum Script Brasil
  • 0

VB6 - arquivo .bat criado não funciona


ricardoweb084

Question

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

Edited by ricardoweb084
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.9k
×
×
  • Create New...