none
Gerar arquivo txt com valor do campo inputbox RRS feed

  • Pergunta

  • Bom dia a todos

    No script abaixo eu preciso que o valor digitado no inputbox seja o nome do arquivo txt (log.txt). Segue abaixo o script.

    DIM objShell
    Dim Input
    Input = InputBox("Digite o Patrimonio")


    set objShell = wscript.createObject("wscript.shell")
    iReturn = objShell.Run("CMD /C cscript.exe GetMachineInfo.vbs * > log.txt", , True)

    MsgBox ("Arquivo Gerado com Sucesso: " & Input)

    quarta-feira, 20 de fevereiro de 2013 12:31

Respostas

  • Tente isto:

    DIM objShell
    Dim Input
    Input = InputBox("Digite o Patrimonio")
    
    
    set objShell = wscript.createObject("wscript.shell")
    iReturn = objShell.Run("CMD /C cscript.exe GetMachineInfo.vbs * > " & Input , , True) 
    
    MsgBox ("Arquivo Gerado com Sucesso: " & Input)


    Fábio de Paula Junior

    quarta-feira, 20 de fevereiro de 2013 16:18
    Moderador