none
ABRIR ARQUIVO WORDPAD IMPRIMIR E MOVER RRS feed

  • Pergunta

  • Bom dia Pessoal, Sou novo aqui no fórum, estou precisando da ajuda de Voces!

    Seguinte, tem uma determinada pasta no windows que são mandado vários arquivos em formato txt, tenho um script que abre esse arquivo e imprime e move o arquivo pra outra pasta, porem funciona bem quando so tem um arquivo se tiver mais de um ele da erro devido o meu script esta movendo todos arquivos da pasta em vez de mover so o que imprimiu, gostaria que o script imprimisse o arquivo mais antigo e movesse somente esse arquivo, e depois imprimisse o próximo arquivo e movesse, ate acabar todos arquivos, abaixo segue meu script

    este script imprime correto o problema esta no meu outro script moveimpressao.bat ele move todos os arquivos da pasta, pois não sei como posso passar o nome do arquivo para o outro script bat ou fazer com que no propio script vbs ele mova

    Set objPrinter = CreateObject("WScript.Network")
    objPrinter.SetDefaultPrinter "\\172.16.16.210\boqueta"
    strPasta = "C:\Users\Usuario\Desktop\REQUISICOES\TODAS\000imprimeboqueta"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(strPasta)
    For Each strFileName in objFolder.Items
       imprime strFileName.path
    Next
    set wshshell = wscript.createobject("Wscript.shell")
    WshShell.Run("""C:\Users\Usuario\Desktop\scripts\imprime\moveimpressao.bat""")
    Sub Imprime(strArquivo)
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "wordpad.exe /p " & strArquivo &  " ", 1, true
    End sub

    ' Define-se a impressora padrão após 3 segundos
    Wscript.Sleep 1000
    Set oldPrinter = CreateObject("WScript.Network")
    oldPrinter.SetDefaultPrinter "Two Pilots Demo Printer"

    esse é o segundo script 

    move C:\Users\Usuario\Desktop\REQUISICOES\TODAS\000imprimeboqueta\*.txt C:\Users\Usuario\Desktop\REQUISICOES\TODAS\000CONCLUIDA

    terça-feira, 4 de fevereiro de 2020 10:13

Todas as Respostas

  • Olá,

    Como esses scripts são acionados eles são executados os 2 ao mesmo tempo ou primeiro é executado o vbs e depois o bat?

    Esse VBS vai imprimir todos os aruquivos? Porque você não chama o VBS do BAT e ai só quando o VBS terminar o bat move os arquivos?


    R. Bohner

    terça-feira, 4 de fevereiro de 2020 11:50