Ler quantidade linhas vbs

Respostas

• 

  

  0

  Entrar para Votar

  Foliveiar segue o script para isso :

   

  i = 0
  set FSO = createobject("scripting.filesystemobject")
  set arq = fso.opentextfile("caminho do arquivo TPCS.txt",1)
  do until arq.AtEndofstream
   arq.skipline
   i = i +1 
  loop

  Set objEmail = CreateObject("CDO.Message")

   

  objEmail.From = "monitor@monitor.com.br "

  objEmail.To = "monitor_adg@monitor.com.br"

  objEmail.Subject = "Atualização do arquivo TPCS.TXT - Número de linhas " & i 

  objEmail.Textbody = "O arquivo TPCS.TXT foi atualizado nessa madrugada!"

  objEmail.Configuration.Fields.Item _

      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

  objEmail.Configuration.Fields.Item _

      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _

          "MAILBX01.exemplo.corp.net"

  objEmail.Configuration.Fields.Item _

      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

  objEmail.Configuration.Fields.Update

  objEmail.Send

   

  ps: só muda o que está em negrito

  • Marcado como Resposta Fábio JrModerator sexta-feira, 9 de dezembro de 2011 10:59

  segunda-feira, 26 de maio de 2008 17:22

  Responder

  |

  Citação