Newsgroup: it.comp.appl.access
Titolo: ricerca file

Buon giorno a tutti,
eseguendo questa routine :
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\commesse"
    .FileName = TXTcommessa & ".pdf"
    If .Execute > 0 Then
        MsgBox "Trovati" & .FoundFiles.Count & _
        " file"
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "Nessun file trovato"
    End If
End With
copiata pari dall'help e sostituita solo per il ome del file.
Il problema è che quando la lancio e nel TXTcommessa vado a mettere il
valore 1 la routine mi da come trovati i file che hanno il nome 210022.pdf
stessa cosa se uso il 2.
non c'è un metodo alternativo?
a me infatti interessa solo sapere se esiste il file 1.pdf e non tutti i
file in cui 1 è compreso.
Spero di essere stato chiaro grazie e a ripostarci.
Filippo Mazzella.

 ha scritto nel messaggio
news:lUjBa.10361$pR3.1...@news1.tin.it...

Imposta a true la propriet MatchTextExactly:
 Set fs = Application.FileSearch
 With fs
     .LookIn = "C:\commesse"
    .MatchTextExactly=true
ecc. ecc.
Bye.

 ha scritto nel messaggio
news:lUjBa.10361$pR3.1...@news1.tin.it...

Beh allora ti basta usare la funzione Dir (vedi help):
If Dir("C:\commesse\" & TXTcommessa & ".pdf") = "" Then
    MsgBox "Il file NON esiste"
Else
    MsgBox "Il file esiste"
End If
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:qdkBa.42442$Ny5.1...@twister2.libero.it...

Non fa esattamente la stessa cosa.
Il suo codice cicla anche le subdirectory.
Ciao.

 ha scritto nel messaggio
news:bb4j9f$seo$1...@newsreader.mailgate.org...

Il metodo di George non funziona mentre quello di Roberto da Casa si.
Il problema però è che senza ciclo come faccio a compararlo con il mio
database per verificare se ci sono nuovi file?

 ha scritto nel messaggio
news:7mkBa.10456$pR3.1...@news1.tin.it...

Il codice funziona perfettamente in entrambi i casi.
Comunque sia mi sono dimenticato un <.SearchSubFolders = True> per
analizzare anche le subdirectory.
La funzione Dir(<nome>,<attributi>) restituisce la prima ricorrenza del file
sulla base del filtro.
Puoi ciclare la Dir() senza parametri per vedere se si sono altri file che
aderiscono la richiesta.
Ma cosa ti serve fare esattamente che non è chiaro?
Ciao.

 ha scritto nel messaggio
news:bb4ken$und$1...@newsreader.mailgate.org...

Dopo la scansione (fatta a parte perchè non so gestire lo scanner in
access )devo far registrare il file nel database.
Ovvero dopo aver scandito un file in PDF e nominato col numero della
commessa ,l'utente deve aprire access e registrarlo però devo fare 3
controlli,se esiste la commessa nel database ODBC ,se è stata registrata già
nel mio database, e se il file in pdf esiste;
se il numero inserito nella txtcommessa super questi tre controlli allora la
commessa può essere registrata nel mio database.
il programma è per l'archiviazione digitale.
il programma sarebbe più bello se fossi io a controllare la scansione ,e
ricevere direttamente il numero della commessa dopo la scansione (oltre che
attivarla).ma mi è stato detto che in questo newsgroup non si affronta
questo problema e mi è stato consigliato di consultare il sito adobe
acrobat.
Il programma infatti si limita ad aprire adobe e lasciar fare tutto
all'operatore.
Grazie per la risposta ma anche quando uso la proprietà di george mi trova
lo stesso tutti i file che comprendono il numero 2.
Un pò prolisso ma perdonatemi....


Sì, prolisso e non chiaro.
Quale dei passi indicati ti crea difficoltà?
Immagino la ricerca del file...
Suppongo che tu voglia reperire dal file il numero della commessa e quindi
verificare se nel db (tuo o odbc poco importa) ci siano le informazioni...
Io farei così:
Esaminerei con un filtro *.pdf la directory dove lo scanner archivia i file
per ogni ricorrenza verificherei nel db se ci sono i dati.
Ti spiego come cliclare i file:
strNomeFile=Dir("C:\commesse\*.pdf",vbNormal)
do while strNomefile<>""
'estrai il numero dal file omettendo l'estensione:
    numerocommessa=Left(strNomeFile,len(strNomeFile)-4)
<faiquellochecredi>
'leggi il prox file
    strNomeFile=Dir()
loop
Ciao

 ha scritto nel messaggio
news:bb4ml1$3bl$1...@newsreader.mailgate.org...

Grazie Tante non era mia intenzione essere poco chiaro e solo che sto
creando questo proggetto da poco (o cominciato ieri) e ho molti dubbi e
curiosità che ho paura di non soddisfare.
L'analisi prettamente teorica l'ho già fatta e ho chiaro in mente quello che
voglio,ma i metodi per realizzare il progretto non li ho definiti tentando
così un pò qua e la.
Voi tutti siete però molto disponibili e per questo vi ringrazio tanto anche
per la pazienza da voi datami.
Grazie di nuovo

 ha scritto nel messaggio
news:7mkBa.10456$pR3.1...@news1.tin.it...

Non è che ho capito la tua obiezione, forse perché non mi è chiaro cosa vuoi
fare.
Se ce lo spiega dovremo riuscire a darti una soluzione più adatta a
risolvere il problema.


 ha scritto nel messaggio
news:ljlBa.10731$pR3.1...@news1.tin.it...

Cazzarola, mi sembra di parlare con le mie colleghe di lavoro.... migliaia
di parole per minuti per dirmi che *la stampante non stampa*!
Ti è servito o no?
Ho capito bene o no?
:o))))))))))))))))))
Ciao.

 ha scritto nel messaggio
news:bb4nmv$570$1...@newsreader.mailgate.org...

Si perfetto
:)
Anche io mi sembravo una delle mie colleghe.
Ciao e Grazie!

 acrobat.
[CUT]
Non so chi ti abbia detto che in questo NG non si possa parlare di come
gestire uno scanner da un applicativo in Access; se ti sta bene che il file
immagine creato dalla scansione sia .tif o .bmp invece che .pdf, in questo
NG nel passato sono già state date soluzioni per gestire la scannerizzazione
in un applicativo Access, e se apri un thread ad hoc penso si possa
continuare a darne.
