Newsgroup: it.comp.lang.visual-basic
Titolo: ! Verificare se esiste un file !

Salve,
Esiste una funzione gia' fatta per verificare (senza api o dll o ocx) se
esiste un file o no?
Grazie,
Tommy
lan...@tin.it

...


 wrote in message 8687t2$7uq$1...@nslave2.tin.it...


 wrote in message
868ano$2qu$1...@lacerta.tiscalinet.it...


 wrote in message
LR%h4.14428$Wr6.1...@news.infostrada.it...


 esiste un file o no?
Questa function dovrebbe fare al caso tuo, l'ho fatta modificando un esempio
che ho trovato non ricordo dove sul www:
Public Function esiste(FileName As String, Optional show As Boolean = True)
As Boolean
On Error Resume Next
Open FileName For Input As #19
If Err Then
If show = True Then Call MsgBox("Il file " + FileName + " non è stato
trovato!", vbOKOnly + vbCritical, "File non trovato")
esiste = False
Exit Function
Else
esiste = True
End If
Close #19
End Function
nel parametro filename devi specificare il path del file da verificare, il
parametro show è opzionale... Se è impostato su true visualizza un messaggio
di errore nel caso che il file non esiste, se è impostato su false si limita
a restituire false come risultato della function.
Antonio Mirarchi
--
--
Antonio "[stamc]" Mirarchi
==================
Email           : 
st...@bigfoot.com
#ICQ           : 31866145
Pager ICQ   : 
3186...@pager.mirabilis.com
Siti WWW   : 
http://stamc.n3.net
 & 
http://wol.n3.netd
Ammiraglio Hut, gestore gioco di ruolo "Star Trek: war"
=====================================
Email                    : 
h...@trekwar.cjb.net
Sito WWW          : 
http://trekwar.cjb.net
 o 
http://trekwar.n3.net
Free email service : 
http://trekwar.zzn.com

 > > >
lan...@tin.it

 
lan...@tin.it

...


 questo systema
.... ottimo motivo per NON usarlo, di solito.
Bye, G.

esiste mi becco un errore e so che il file non c'è
No, l'uso della funzione "Dir" va benissimo, non c'e' ambiguita'.
La funzione Dir ti fa il controllo sulle directory SOLO se inserisci
il parametro relativo:
dir("c:\windows")
ti restituisce una stringa vuota, se invece scrivi:
dir("c:\windows",vbDirectory)
ti restituisce, a ragione "C:\WINDOWS".
--
C'ya,
 Benjamin Reilly
  |
  |
'/|\'
\\O//
//"\\
'\ /'
________________________________________TagLine___
"Quanti Angeli danzano sulla punta di uno spillo?"

tante altre cose...).
L'FSO e' una delle cose belle della vita di un programmatore VB da
quando hanno fatto il VB ;) pero' non mi sembra il caso di integrarlo
SOLO per fare il check di un file. :)


 file://"\\


 esiste mi becco un errore e so che il file non c'è
Attenzione che ti becchi un errore anche se il file è già aperto da qualcun
alto.
A me è capitato con una funzione che andava a vedere se esisteva un file mdb
con quel sistema, e casualmente l'mdb era in uso (da parte della stessa
applicazione, peraltro).
Comunque quello dell'apertura del file resta un buon metodo se lo utilizzi
all'interno di una routine che cicla ad esempio su tutti i file di una
directory, visto che ogni volta che usi Dir$ il puntatore al file successivo
si azzera. In tutti gli altri casi, è meglio usare Dir$, che è + veloce.
Ciao
*Roby*

 > >

--
My name: Matteo
Mail to: 
ori...@libero.it
icq#: 37743100 (nick Fotospiro)
-----------------------------------------------
Obiettivo finale: annientare M$