[ASP vbs]Lettura file di testo

[Aki]

Ave populus
ho bisogno di leggere un file .txt e scriverne le righe su una pagina asp, per cui ho scritto questo codice:

<% 
Const ForReading = 1
Set oFS = CreateObject("Scripting.FileSystemObject")
pathMateriale = "\\100.1.1.1\wwwrootbasko\backup\upload\public\"
if  oFS.FileExists(pathMateriale  + "\thread.txt") then    
   Set f = oFS.OpenTextFile(pathMateriale + "\thread.txt", ForReading)
   response.write("<font style='font-size: 10px;'>" +f.readAll() + "
</font>")
else
   response.write "Nothing in " + pathMateriale + "\thread.txt"
end if
%>

(l'IP è fittizio) però, anche se il file txt esiste ed è scritto, scrive sempre Nothing in \\100.1.1.1\wwwrootbasko\backup\upload\public\
perchè?
come risolvo???

[teorema55]

Non hai uno slash di troppo?

Prova a scrivere

"thread.txt"

anzichè

"\thread.txt"

come nome del file.........

[Aki]

Originariamente inviato da teorema55
Non hai uno slash di troppo?

Prova a scrivere

"thread.txt"

anzichè

"\thread.txt"

come nome del file.........

uguale a prima, continua a dirmi che non c'è nulla sebbene il file esista e sia scritto

[optime]

non credo che FSO funzioni via IP. anzi, spero proprio che non funzioni!

[Aki]

Originariamente inviato da optime
non credo che FSO funzioni via IP. anzi, spero proprio che non funzioni!

beh credo di sì visto che l'ho proprio usato x scrivere quel file remoto!

[optime]

posta lo script di scrittura, che la cosa m'intriga.

[Aki]

Originariamente inviato da optime
posta lo script di scrittura, che la cosa m'intriga.

mea culpa
avevo modificato lo script x scrivere in locale e me ne ero dimenticato,
ora lo script di lettura è così:

<% 
Const ForReading = 1
Set oFS = CreateObject("Scripting.FileSystemObject")
pathMateriale = Server.MapPath("public\")
if  oFS.FileExists(pathMateriale  + "\thread.txt") then    
   Set f = oFS.OpenTextFile(pathMateriale + "\thread.txt", ForReading)
   response.write("<font style='font-size: 10px;'>" +f.readAll() + "
</font>")
else
   response.write "Nothing in " + pathMateriale + "\thread.txt"
end if
%>

ma non và
come mai???

[teorema55]

Lo slash andava bene, mancava la mappatura del file.......

<% 
Const ForReading = 1
pathMateriale = "/public/news/"

Set oFS = CreateObject("Scripting.FileSystemObject")

la_mia_cartella=server.mappath(pathMateriale)

if  oFS.FileExists(la_mia_cartella & "/biglietto.doc") then    
   Set il_mio_file = oFS.OpenTextFile(la_mia_cartella & "/biglietto.doc", ForReading)
   response.write("<font style='font-size: 10px;'>" &il_mio_file.readAll() & "
</font>")
else

   response.write "Nothing in " & la_mia_cartella & "/biglietto.doc"
end if
%>

il test è fatto su un file del mio web, che naturalmente, essendo .doc, non viene letto correttamente............questo in locale.

Per il discorso via IP concordo con optime.

[optime]

CVD! siamo salvi!

[Aki]

Originariamente inviato da teorema55
Lo slash andava bene, mancava la mappatura del file.......

<% 
Const ForReading = 1
pathMateriale = "/public/news/"

Set oFS = CreateObject("Scripting.FileSystemObject")

la_mia_cartella=server.mappath(pathMateriale)

if  oFS.FileExists(la_mia_cartella & "/biglietto.doc") then    
   Set il_mio_file = oFS.OpenTextFile(la_mia_cartella & "/biglietto.doc", ForReading)
   response.write("<font style='font-size: 10px;'>" &il_mio_file.readAll() & "
</font>")
else

   response.write "Nothing in " & la_mia_cartella & "/biglietto.doc"
end if
%>

il test è fatto su un file del mio web, che naturalmente, essendo .doc, non viene letto correttamente............questo in locale.

Per il discorso via IP concordo con optime.

infatti ho risolto così