Opening input file failed: The system cannot find the path specified.

[[trodat]]

Ciao, avrei bisogno di un buon consiglio.

Ho realizzato uno script ASP che crea un file PDF al volo per un download forzato.

Il problema è che, a secondo le operazioni ed i carichi di lavoro in cui è impegnato il mio server, a volte lo script fallisce la creazione del suddetto file al volo e restituisce questo errore:

Opening input file failed. The error message is: 
The system cannot find the path specified. 

/_fileCreate/Include.asp, line 77 

if _    
   ScriptObject.FileExists("C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf") _
then 
   path_temp_1 = "C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf" 
else
   response.write "ko"    
end if   

line77. Set Doc = Pdf.OpenDocument("C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf")

In effetti non fallisce la creazione del file, ma lo script non fa in tempo a creare il file che prova ad aprirlo per controllarne il contenuto, da qui l'errore.

Suggerimenti?
Grazie mille

[optime]

sempre con ScriptObject.FileExists controlli che esista prima di aprirlo!

[[trodat]]

Originariamente inviato da optime
sempre con ScriptObject.FileExists controlli che esista prima di aprirlo!

Ok, grazie.
Ma se esiste lo apro, ma se non esiste ?

Esiste una maniera per attendere fino a quando il pdf al volo non sia stato regolarmente creato?

[optime]

se non esiste non lo apri, che domande.

se vuoi attendere puoi fare un ciclo do...loop che esce solo quando vedi che il file esiste. ricordati però di mettere un tempo massimo di attesa, altrimenti rischi di mandare in loop il server

[[trodat]]

Ok grazie, intendi questo: ?

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
if _    
   ScriptObject.FileExists("C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf.pdf") _
then 
   path_temp_1 = "C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf.pdf" 
   Set Pdf = Server.CreateObject("Persits.Pdf")
   Set Doc1 = Pdf.OpenDocument(path_temp_1) 
else
   
    '''inizio ciclo attesa per x secondi
    x = 20
    t1 = Time
    t2 = Time
    Do While ((t2 - t1) * 86400) < x
        t2 = Time
    Loop
   
end if    
    Set ScriptObject = Nothing

[optime]

no. qualcosa del tipo

do
-- c'è?
-- si, esco
-- no
-- -- ho aspettato troppo?
-- -- si: esco comunque
-- -- no:
loop

[[trodat]]

Ti seguo sino ad un certo punto ... :

do
if _    
   ScriptObject.FileExists("C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf.pdf") _
then 
   path_temp_1 = "C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf.pdf" 
exit do
else

-- no
-- -- ho aspettato troppo?

exit do

-- -- no:

end if
loop

[optime]

path_temp_1 = "C:\Documents and Settings\Administrator\My Documents\_downloadFile.pdf" 
BeginTime=Time()

do
   if ScriptObject.FileExists(path_temp_1) then 
      esiste=true
      exit do
   end if
   if DateDiff("n",BeginTime,Time)>3 then ' aspetto 3 minuti, bastano?
      esiste=false
      exit do
   end if
loop

if esiste then
   ' c'è, procedi
else
   ' non c'è, vedi tu cosa fare
end if

sono andato a orecchio

[ubbicom]

...

[[trodat]]

Grazie mille, funziona come si deve.