VBscript objFSO.GetFile con arrServiceList

[-ADP-]

Buona sera,
qualcuno riesce a capire perchè ricevo il messaggio di errore:

IMPOSSIBILE TROVARE IL FILE
800AA0035

per il seguente Script:

Const ForReading = 1
Dim FilePath,OggettoFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Users\Nicola\Desktop\BMB 147\filelist.txt", ForReading)

Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , "|")
objTextFile.Close
FilePath = arrServiceList(0)
set OggettoFile = objFSO.GetFile(FilePath)
wscript.echo OggettoFile.DateLastModified
Loop

p.s. all'interno del txt che va a leggere ci sono un certo numero di path di diversi pdf.
p.p.s se al posto della bvariabile FilePath inserisco il path copiato dal txt funziona perfettamente.

[oregon]

Perché chiudi il file di testo nel ciclo ?

Questa

objTextFile.Close

dovresti spostarla alla fine dopo la Loop

[gibra]

Oltre alla corretta indicazione di oregon, aggiungo che evidentemente FilePath non contiene il percorso corretto, almeno non lo contiene così come te lo aspetti.

Tieni presente che alla fine di una riga c'è sempre un carattere CR, oppure un LF, oppure entrambi.
Se così non fosse, non potrebbe andare a capo.

Non conoscendo il tuo file non è possibile dire di più.