Newsgroup: it.comp.appl.access
Titolo: Importare file .dat

Salve a tutti
Ho questo problema:
dovrei importare un file .dat in una tabella prestabilita, fin qui tutto
bene , il problema sorge perche' il nome del file e' costituito da una parte
fissa "prova" e una parte variabile costituita dalla data di emissione del
file : il fle di oggi si chiamera' :   "prova010305".
Come posso da codice usare un istruzione del tipo *.* !!!!!!
L'istruzione che sto usando e' questa:
Public Function Prova()
Dim a As String
a = Date
a = Right(a, 2) & Mid(a, 4, 2) & Left(a, 2)
DoCmd.TransferText acImportFixed, "provatipo", "prova",
"C:\provaimport\prova" & a & ".dat"
End Function
Il problema e' che funziona tutto se l' operazione viene eseguita nella
giornata in cui e' stato emesso il file, io vorrei che potessi importarlo
anche il giorno dopo.
Ciao a tutti



 ha scritto nel messaggio
news:97vu5p$7pg$1...@lacerta.tiscalinet.it...

Questa routine ti dovrebbe importare tutti i file *.dat che trova nella
directory.
'-----------------
Dim FileDaTrovare as String
If Dir("C:\provaimport\prova\*.dat") = "" Then
    msgbox "Files non trovati"
    Exit sub
End If
fileDaTrovare = Dir("C:\provaimport\prova\*.dat")
Do While fileDaTrovare <> ""
    If fileDaTrovare <> "" Then
        DoCmd.TransferText acImportFixed, "provatipo", "prova",
fileDaTrovare
    End If
    fileDaTrovare = Dir
Loop
'-----------------
Ciao.

         DoCmd.TransferText acImportFixed, "provatipo",
"prova",fileDaTrovare
 ciao

 wrote in message
9801du$1bk$1...@suite03.caspur.it...

Ciao Sergio,
Sono sicuro che l'hai scritta al volo, io invece, oggi ho un pò di tempo e
ti faccio le pulci...;-)
  Dim lsFile As String
  lsFile = Dir("C:\provaimport\prova\*.dat")
   If lsFile = vbNullString Then
       MsgBox "Files non trovati"
       Exit Sub
  Else
       Do
          If lsFile <> vbNullString Then
            DoCmd.TransferText acImportFixed, "provatipo", "prova", lsFile
          End If
          lsFile = Dir
      Loop While lsFile <> vbNullString
  End If
Praticamente faccio una Dir("C:\provaimport\prova\*.dat") in meno...
Un saluto
Michele Amato
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sulla mia pagina personale
http://utenti.worldonline.it/micheleamato
è possibile trovare del materiale relativo ad Access
scritto da me, sia freeware che shareware
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}


Hai provato a visualizzare il contenuto della variabile "fileDaTrovare"?
Es.
...
MsgBox fileDaTrovare
DoCmd.TransferText acImportFixed, "provatipo", "prova", fileDaTrovare
...
Ciao.


   Dim lsFile As String
   lsFile = Dir("C:\provaimport\prova\*.dat")
    If lsFile = vbNullString Then
        MsgBox "Files non trovati"
        Exit Sub
   Else
        Do
           DoCmd.TransferText acImportFixed, "provatipo", "prova", lsFile



Ciao Michele; mi dispiace deluderti, era una vecchia routine, l'ho
riprovata, funzionava e via... Mo' l'aggiorno!
Ciao.
P.S. Complimenti per il sito e il software contenuto...
Ari-Ciao.

 wrote in message
980k11$ie2$1...@pegasus.tiscalinet.it...

fileDaTrovare è un filename,
Docmd.Transfer ...
vuole un pathname,
devi concatenare la path
      DoCmd.TransferText acImportFixed,
"provatipo","prova","C:\provaimport\prova\" & fileDaTrovare
HTH


Grazie ad entrambi per l' ottimo aiuto e' stata proprio una battaglia "all'
ultima routine"
Ciao ;-))))
Gian Luigi (Porello)