Newsgroup: it.comp.lang.visual-basic
Titolo: Errore strano su istruzione che non c'e'

Questa e' curiosa...
Mi succede SOLO in un ufficio.
C'e' un pezzo di codice che fa determinate cose e che in questo ufficio, ma
solo in questo, mi da' l'errore
52: Bad File Name or Number
Ora, il problema e' che io non vedo nessuna istruzione che possa generare
quell'errore!!
Ho delimitato la porzione di codice che puo' generare l'errore, e non c'e'
nessuna istruzione che acceda ad un file O__o
Ecco il codice, se qualcuno vuol darci un'occhiata
        Web_SyncNavigate "
http://xxxxxxxxxxxxxxxx.asp?date=
" &
gdatUltimaImportazione
        If frmIntro.WebBrowser.Document.body Is Nothing Then
            Err.Raise -1, "Trasferimento Foto",
frmIntro.WebBrowser.Document.Title
        End If
        If Len(frmIntro.WebBrowser.Document.body.outerText) > 8 Then
            If (Left$(frmIntro.WebBrowser.Document.body.outerText, 3) =
"[@]") And (Right$(frmIntro.WebBrowser.Document.body.outerText, 5) = "[/@]
") Then
                StrReturText =
Mid(frmIntro.WebBrowser.Document.body.outerText, 4,
Len(frmIntro.WebBrowser.Document.body.outerText) - 8)
                rngFoto = Split(Trim$(StrReturText), vbCrLf)
                lngContFoto = 0
                lngContFoto = UBound(rngFoto)
                On Error GoTo errTrasferimento
                For intCont = 0 To lngContFoto - 1
                    If Len(Dir$(gstrPathImmagini & "\fotoimmobili\" &
rngFoto(intCont))) > 0 Then
                        rngFoto(intCont) = vbNullString
                        lngContFoto = lngContFoto - 1
                    End If
                Next intCont
                If lngContFoto > 0 Then
Ora, negli ELSE ci sono dei MsgBox, quindi quelli li escluderei.
L'unica istruzione che lavora sui File e' la Dir$(), ma in nessun modo sono
riuscito a fargli generare un errore simile...ed in tutto il modulo che
contiene questo codice, non c'e' una singola istruzione Open!!!!
Suggerimenti?

 Open!!!!
Non č detto che si auna open...
-- 
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Un uomo saggio impara dall'esperienza,
un uomo ancora piů saggio impara dall'esperienza degli altri." (Saggio
Cinese)

 gdatUltimaImportazione
Prova cosi: Web_Sync.Navigate "http: ......
salutoni
-- 
[CapoBecchino]
www [dot] boundlessminds [dot] it
Da Barzellette.it:
 In una lapide di un cimitero c'è questo epitaffio:
"Qui riposa, per la seconda volta, Ernesto Rossi. Una prece."
Un tizio, incuriosito, chiede informazioni al necroforo che, fra l'altro,
conosceva il defunto e così gli risponde:
- Vede signore, il defunto Rossi in vita lavorava in Comune...
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Prova cosi: Web_Sync.Navigate "http: ......
E' il nome di una mia funzione.

Drizzt ha scritto:

Allora la lettura del file sarà nella funzione .. :)
posta la funzione  e vediamo :)
Saluti


 posta la funzione  e vediamo :)
E' praticamente vuota...
Cmq, sono riuscito a scoprire che la Dir() con un percorso di rete non
valido restituisce esattamente quell'errore.
Adesso devo solo capire cosa diavolo ha quell'ufficio che non va'. Cmq,
secondo me e' colpa di chi gli installa i PC...

 52: Bad File Name or Number
Where?

 Where?
Scusa se ti rompo, ma visto che tu e Alex1980 mi avete fatto piu' o meno lo
stesso discorso, ho bisogno di capire una cosa.
Ma scrivo in maniera cosi' tanto incomprensibile?

 Ma scrivo in maniera cosi' tanto incomprensibile?
No, ma dal codice che hai pubblicato (a parte possibili strane cose
sull'indirizzo per il WB) non si deduce affatto quale potrebbe essere
l'istruzione che puň provocare quell'errore 53.
Quindi deve essere da qualche Sub/Function che quel (o altro) codice chiama.
Prova con degli On Error e/o dei MsgBox per capire dove si verifica l'errore
e/o sin dove arriva regolarmente. Poi, in funzione di quel che scopri,
concentrati con quel che viene chiamato. Potrebbe essere a 1000 righe di
distanza. Lo trovi e capisci.
E', parrebbe, una questione ambientale (disci, strutture, rete, files). Devi
solo trovare perchč lě no e altro sě. Non credo sia drammatico, solo qualche
test passo-passo, anzi, io (ovvio, avendo a disposizione l'ambiente di
sviluppo sulla macchina incrfiminata) farei proprio cosě, F8. Se no, ripeto,
metti e ricompili un sacco di punti di test che ti dicano fin dove arriva.
Quando scopri l'ultimo punto OK, guardi il sorgente. Togli tutti i test e
sistemi.