Newsgroup: it.comp.appl.access
Titolo: ricerca di un file su più cartelle

Ciao
Ho 3 quesiti che dovrei risolvere
1) Ho l'esigenza di cercare da Access un file da una casella di testo
"txtNomeDoc"
lo devo però cercare, a differenza del mio esempio, non solo nella cartella
documenti, ma anche in altre cartelle, che sono sottocartelle di Documenti
Chi sa dirmi come scrivere?
2) Devo anche inserire l'opzione che mi da un messaggio nel caso in cui il
nome da cercare non esiste in nessuna cartella.
Mio esempio:
Private Sub TrovoNuovoDocumento_Click() 'cerca il documento esistente
    Dim NomeDocumento As String
    Dim Percorso As String
    NomeDocumento = txtNomeDoc.Value
    Percorso = "C:\Documenti\"
    NuovoDocumento = Percorso & NomeDoc
End Sub
3) una volta aperto un documento in Word, vorrei che la maschera di Word si
apra a pieno schermo
Ringrazio a chi mi darà una mano e a chi me l'ha data in precedenza
ciao
Maurizio

 wrote in message
8ss4qc$a04$1...@fe1.cs.interbusiness.it...


documenti, ma anche in altre cartelle, che sono sottocartelle di Documenti
Antogal dixit:
with application.filesearch
  .lookin="c:\documenti"
  .searchsubfolders=true
  .filename= me.txtNomeDoc
  if .execute()>0 then
    msgbox "Trovato"
    for i=1 to .foundfiles.count
      msgbox .foundfiles(i)
    next i
  else
    msgbox "Non trovato"
  end if
end with
--
Lorenzo Coronati
--
<<Come posso dunque sprotegere il database? 
Esiste un crack o qualcosa del genere 
che mi faccia accedere ai dati?>>
(Cocco, 17/10/2000)
--


 Grazie Calogero
Devi però scusare la mia ignoranza, è da poco che smanetto con access e VB
sicuramente quello che ti chiedo è una banalità mostruosa
Vorrei partire Dalla directory C:
sostituisco dirpartenza con "C:\" ?
.LookIn = "C:\"
e
.FileName = "pippo" 'nome del mio file
ci ho provato ma mi da errore
il mio pulsante si chiama CercaFile, come devo inserire il nome della tua
subroutine nella mia?
Private Sub CercaFile_Click()
    Trova
End Sub
Così ovviamente non funziona
Vorrei che poi mi inserisse il percorso trovato in una nuova variabile
"PercorsoTrovato"
Porta pazienza.........
Ciao
Maurizio

 --
Grazie Lorenzo
Anche a te porgo la stessa domanda nel caso che Calogero non potesse
rispondermi
e se volessi mettere il nuovo percorso trovato in una nuova variabile?
La tua routine funziona, io ho provato a cercare come file "Lettera A.doc",
oltre a trovarmi
questa, mi trova anche un altro file simile ma non uguale "Lettera Aa.doc",
come mai?
ciao
Maurizio

Sub trova(dirpartenza, nomefile As String)
Mi hai fregato!
:-P


"PercorsoTrovato"
Allora vediamo: devi trasformare la sub in una function:
Function trova(dirpartenza, nomefile As String) as string
With Application.FileSearch
   .LookIn = dirpartenza 'dir di partenza
   .SearchSubFolders = True  'ricerca ricorsiva nelle
sottodir
   .FileName = nomefile 'nome del file (anche con caratteri
jolly)
   If .Execute() > 0 Then
       trova= .FoundFiles(1) 'path+nome dei file trovati
   Else
       trova=""
   End If
End With
End Function
Cosi' ti restituisce (o ritorna?) il path del primo file
trovato.


come mai?
Funziona come il "trova" del menu start.
Non saprei dirti se c'e' qualche proprieta' da settare per
trovare solo le corrispondenze esatte...
Chissa' che Antonello sia in ascolto.



Mille grazie per la funzione di ricerca, č una bomba
Maurizio

 Mi hai fregato!
Ciao Lorenzo,
ho omesso di informare che la routine è stata liberamente tratta dal sito
comune.
io la uso ormai di norma nelle mie applicazioni, è una bomba. non ricordavo
fosse tua.
Cordialità
Calogero Di Lorenzo

fosse tua.
No, cos'hai capito, mi hai fregato sul tempo :-)
La routine e' di Antogal.
Bai
