Re: MsgBox su esistenza File.
Von: Gaspare (email@provider.it) [Profil]
Datum: 22.01.2007 13:51
Message-ID: <wr2th.59$nD3.72@nntpserver.swip.net>
Newsgroup: it.comp.appl.access
Datum: 22.01.2007 13:51
Message-ID: <wr2th.59$nD3.72@nntpserver.swip.net>
Newsgroup: it.comp.appl.access
"ALAN" <XXX@libero.it> ha scritto nel messaggio news:ti2th.2917$422.46140@twister2.libero.it... > > "Alessandro Baraldi" <ik2zok@libero.it> ha scritto nel messaggio > news:1169468665.751218.6130@v45g2000cwv.googlegroups.com... > > ALAN ha scritto: > >> 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 > > > If Len(Dir(NomeFile))>0 Then > ' Il file Esiste > Else > ' Il file non Esiste > End if > > @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 > > Percorso = "D:\TestEOD\Dati\" > IntFile = "MIB" > NomFile = rs.DataImp > Est = ".csv" > > File = Percorso & IntFile & NomFile & Est > > Ciao, se proprio non lo vuoi aprire quel file utilizza FileSearch http://support.microsoft.com/kb/155837/it ;-)[ Auf dieses Posting antworten ]