problema su variabile

[davide giudice]

Salve a tutti
Ho un problema che potrà sembrare davvero sciocco, ma non riesco a
valorizzare una variabile da questo ciclo:

Option Explicit
Dim oFSO, sFile, oFile, sText
Set oFSO = CreateObject("Scripting.FileSystemObject")
sFile = "path.txt"
If oFSO.FileExists(sFile) Then
Set oFile = oFSO.OpenTextFile(sFile, 1)
Do While Not oFile.AtEndOfStream
sText = oFile.ReadLine
If Trim(sText) <> "" Then
'WScript.Echo sText
End If
Loop
oFile.Close
Else
'WScript.Echo "Nessun file trovato!"
End If

Qualcuno riesce a darmi una mano?

Grazie Mille

[Reventlov]

Il giorno Thu, 11 Aug 2011 08:43:33 -0700 (PDT), davide giudice <mear...@gmail.com> ha
scritto:

>Salve a tutti
>Ho un problema che potr=E0 sembrare davvero sciocco, ma non riesco a

>valorizzare una variabile da questo ciclo:

A me funziona. Mi mostra ogni riga letta dal file che si trova nella stessa cartella dello
script. Ho tolto l'apice prima di WScript.Echo sText

Option Explicit
Dim oFSO, sFile, oFile, sText
Set oFSO = CreateObject("Scripting.FileSystemObject")
sFile = "path.txt"
If oFSO.FileExists(sFile) Then
Set oFile = oFSO.OpenTextFile(sFile, 1)
Do While Not oFile.AtEndOfStream
sText = oFile.ReadLine
If Trim(sText) <> "" Then
WScript.Echo sText
End If
Loop
oFile.Close
Else
WScript.Echo "Nessun file trovato!"
End If

--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--