Ir para conteúdo
Fórum Script Brasil
  • 0

Final do Arquivo Ultrapassado


marcelo.silva.ro

Pergunta

Tenho um script (VBScript) que deveria ler a ultima linha de um TXT e somente depois ler a Primeira linha para criar um atalho com o valor da primeira linha mas ocorre que quando o executo ele retorna o seguinte erro:"Final do Arquivo Ultrapassado" "Código: 800A003E".

Pelo que vi pesquisando na internet meu código está lendo a última linha do arquivo de texto mas e depois não retorna para a primeira.

Meu script deveria fazer o seguinte:

1)capturar o valor numérico na ultima linha do "teste.txt"

2)verificar se o valor lido é maior que o número da linha que será lida.

3)Se o valor for maior, Criar um atalho com nome igual ao conteúdo da linha que foi Lida.

"teste.txt":

  1. Pasta 1
  2. Pasta 2
  3. 2

"Criar atalho.vbs"

  1. Option Explicit
  2. DIM fso, objFSO, objTextFile, i, strLine, objShell, objLink, strEndLine, Response
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. If (fso.FileExists("teste.txt")) Then
  5. Const ForReading = 1
  6. Set objFSO = CreateObject("Scripting.FileSystemObject")
  7. Set objTextFile = objFSO.OpenTextFile("teste.txt", ForReading)
  8. '--------------------------------------------------------------
  9. Do Until objTextFile.AtEndOfStream
  10. strEndLine = objTextFile.ReadLine
  11. Loop
  12. If strEndLine > 0 Then
  13. '--------------------------------------------------------------
  14. For i = 1 to 0
  15. objTextFile.ReadLine
  16. Next
  17. strLine = objTextFile.ReadLine
  18. Set objShell = CreateObject("WScript.Shell")
  19. Set objLink = objShell.CreateShortcut(strLine &".lnk")
  20. objLink.TargetPath = "%WINDIR%\system32\wscript.exe"
  21. objLink.Arguments = "//e:VBScript programa.exe"
  22. objLink.IconLocation = "%WINDIR%\system32\imageres.dll, 4"
  23. objLink.Description = strLine
  24. objLink.Save
  25. objTextFile.Close
  26. '------------------------------------------------------------
  27. else
  28. End If
  29. '------------------------------------------------------------
  30. else
  31. End If
  32. WScript.Quit()
Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...