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":
Pasta 1
Pasta 2
2
"Criar atalho.vbs"
Option Explicit
DIM fso, objFSO, objTextFile, i, strLine, objShell, objLink, strEndLine, Response
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("teste.txt")) Then
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("teste.txt", ForReading)
'--------------------------------------------------------------
Do Until objTextFile.AtEndOfStream
strEndLine = objTextFile.ReadLine
Loop
If strEndLine > 0 Then
'--------------------------------------------------------------
For i = 1 to 0
objTextFile.ReadLine
Next
strLine = objTextFile.ReadLine
Set objShell = CreateObject("WScript.Shell")
Set objLink = objShell.CreateShortcut(strLine &".lnk")
objLink.TargetPath = "%WINDIR%\system32\wscript.exe"
objLink.Arguments = "//e:VBScript programa.exe"
objLink.IconLocation = "%WINDIR%\system32\imageres.dll, 4"
objLink.Description = strLine
objLink.Save
objTextFile.Close
'------------------------------------------------------------
else
End If
'------------------------------------------------------------
else
End If
WScript.Quit()