Newsgroup: it.comp.appl.access
Titolo: MsgBox su esistenza File.

eccomi di nuovo qui:
 vorrei inserire un messaggio sull'esistenza o meno del file che importo:
Dim Percorso As String
Dim IntFile As String
Dim NomFile As String
Dim Est As String
Set db = CurrentDb
Set rs = db.OpenRecordset("FileIn")
Percorso = "D:\TestEOD\Dati\"
IntFile = "MIB"
NomFile = rs.DataImp
Est = ".csv"
File = Percorso & IntFile & NomFile & Est
***
If File = ??????
    MsgBox "verrà importato il file " & IntFile & NomFile
else
    MsgBox "il file non esiste"
Exit
End If
DoCmd.TransferText acImportDelim, "Quotazioni", "Quotazioni", File
End Sub
mi dite la condizione per verificare se nella directory c'è il file ??
Grazie

 ha scritto nel messaggio 
news:ER1th.2861$qN4....@twister1.libero.it...

Ciao,
if Len(File) >0 then il file esiste altrimenti etc... 

 ha scritto nel messaggio 
news:ER1th.2861$qN4....@twister1.libero.it...

Ciao,
scusa x la precedente: in effetti x verificare se il file esiste devi 
provare ad aprirlo  "Open FileName etc..." e se ti ritorna 1 errore "if err" 
il file non c'è altrimenti... 

ALAN ha scritto:

If Len(Dir(NomeFile))>0 Then
   ' Il file Esiste 
Else
   ' Il file non Esiste
End if
@Alex

 ha scritto nel messaggio 
news:1169468665....@v45g2000cwv.googlegroups.com...
ALAN ha scritto:


@Alex
Ho inserito il tuo suggerimento mettendo
If Len (File) > 0
 Il file Esiste
Else
   'Il file non Esiste
End if
però il nome del file lo compongo io quindi il conteggio della lunghezza dei 
caratteri me la da sempre > di zero


 ha scritto nel messaggio 
news:ti2th.2917$422....@twister2.libero.it...

Ciao,
se proprio non lo vuoi aprire quel file utilizza
FileSearch 
http://support.microsoft.com/kb/155837/it
 ;-) 

 ha scritto nel messaggio 
news:ti2th.2917$422....@twister2.libero.it...

Ciao @Alex,
scusa ma mi è "scappata" la email: è stato più forte di me :-( 

 File = Percorso & IntFile & NomFile & Est
Guarda che io ti ho suggerito un'altra cosa...., ti sei perso dei
pezzi... guarda BENE...!!!!!!!
@Alex

 File = Percorso & IntFile & NomFile & Est
Guarda che io ti ho suggerito un'altra cosa...., ti sei perso dei
pezzi... guarda BENE...!!!!!!!
@Alex
Hai ragione :( mi sono perso il dir, scusa ma sto imparando piu cose in due 
settimane di newsgruop che facendo copia/incolla di pezzi di codice su 
internte.
Ma adesso no riesco a capire perchč non esco fuori piů dal loop !!
Dim Percorso As String
Dim IntFile As String
Dim NomFile As String
Dim Est As String
Set db = CurrentDb
Set rs = db.OpenRecordset("FileIn")
Do Until rs.EOF
    I = rs.DataImp
    I = I + 1
Percorso = "D:\TestEOD\Dati\"
IntFile = "MIB"
NomFile = rs.DataImp
Est = ".csv"
File = Percorso & IntFile & NomFile & Est
If Len(Dir(File)) > 0 Then
MsgBox "Verra Importato Il file" & File
DoCmd.TransferText acImportDelim, "Quotazioni", "Quotazioni", File
rs.Edit
    rs!FlagImportazione = -1
    rs.Update
    rs.MoveNext
Else
MsgBox "Il file " & File & " non esiste"
End If
If I = rs.EOF Then Exit Do
Loop

 ha scritto nel messaggio 
news:ER1th.2861$qN4....@twister1.libero.it...

Io uso questa,gli passi il percorso completo ed il gioco è fatto.
Morgan
Public Function FileExists(sFileName As String) As Boolean
On Error GoTo ErrHandle
    If FileExists = CBool(Len(Dir(sFileName)) <> 0) Then
        MsgBox "Attenzione,file cercato non esiste od è stato spostato.", 
vbInformation
        FileExists = False
    Else
        FileExists = True
    End If
ErrHandle:
If Err.Number = 0 Then Exit Function
MsgBox Err.Number & " " & Err.Description
End Function


Morgan 

 ha scritto nel messaggio 
news:45b4c78b$0$26984$4faf...@reader2.news.tin.it...

Grazie per il consiglio ma cosi mi salta un record ! 

 Grazie per il consiglio ma cosi mi salta un record !
E cosě?
Morgan 

 ha scritto nel messaggio 
news:45b4cfb8$0$26982$4faf...@reader2.news.tin.it...

ok cosě funziona !! 

 Ma adesso no riesco a capire perchè non esco fuori più dal loop !!

La routine va in loop quando legge dal recordset il nome di un file che
non esiste : l'istruzione rs.MoveNext la devi fare sia che il file
esista sia che il file non esista
Saluti e buon lavoro