Newsgroup: it.comp.lang.visual-basic
Titolo: cerca

per uno strano motivo non mi funziona la "funzione" cerca in windows xp,mi
hanno detto di fare un windows update ma io avendo VB6  vorrei realizzare un
applicativo che realizzi una cosa simile ,non sono molto brava in VB se mi
date un consiglio come fare ne sarei felice.Non mi dite di cercare
sull'aiuto in linea altrimenti questi news non avrebbero modo di esistere
,ho chiesto aiuto da altre parti su altri problemi e quasi tutti mi hanno
detto cerca su google,vorrei solo sapere come fare almeno uno stralcio di
codice. grazie

 news non avrebbero modo di esistere
Beh, sono cose diverse. Questo è un gruppo di discussione. Si dà e si
riceve.
Per il tuo problema: ti consiglio di usare il FileSystemObject, della
libreria Scripting.
Sulla guida in linea c'è tantissimo codice di esempio sul FileSystemObject.
Se te la cavi con i cicli ForEach, fare qualcosa di ricorsivo diventa un
giochino.
Ciao
Alberto

 ha scritto nel messaggio
news:il5Nc.53192$5D1.2...@news4.tin.it...


 cerca...grazie
C'è dell'ironia che non colgo appieno?
Alberto

 date un consiglio come fare ne sarei felice.
Sinceramente non ho capito il tuo problema.
Se il prob. č la ricerca dei files per "parole contenute" in XP se ne č
parlato qualche giorno fa.
Sinceramente non saprei cosa dirti perchč non ho seguito molto la
discussione (ho win2000), ma alcuni mi pare abbiano risolto con il SP.
Ciao
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto nel messaggio
news:2mk8abF...@uni-berlin.de...

Secondo me SI!
E secondo me si aspettava qualche riga di codice!
Ciao, Vincenzo

 E secondo me si aspettava qualche riga di codice!
Beh, che ragionamento...
Ho aperto MSDN, sono andato (senza ricerca, ma semplicemente esplodendo
l'albero delle Reference) sul FileSystemObject, e ho trovato un esempio che
è già il 50% di quello che le serve.
A quest'ora, oramai l'avrà già trovato.
Altrimenti, voleva dire che la sua richiesta era giusto per far passare un
po' di tempo.
Alberto

 e' cosi' difficile?
No, ciò che cerchi di fare è quasi banale.
Però è come se io chiedessi a un rallista come si fa a andare ai 200 sul
ghiaccio.
Questo mi inizia a spiegare che si deve lavorare di frizione, colpetti di
volante così e cosà, ecc...
E poi io lo interrompo e gli chiedo se per accendere il motore devo girare
la chiavetta.
Capisci anche tu che un conto è dare una dritta, un altro conto è fare un
intero corso di VB, e un'altra cosa ancora è scriverti il codice già pronto.
Comunque, di fatto la soluzione te l'ho già data.
Devi fare un for each e una funzione ricorsiva (questo te l'avevo già detto,
non lo invento adesso).
Se non sai fare un for each (che è una cosa molto di base nella
programmazione a oggetti), il problema non è nell'implementare la funzione
di ricerca, ma nella programmazione in sè.
A grandissime linee, ti dò una dritta scrivendo a braccio, senza
intellisense, per cui non so cosa ci salti fuori:
Private File_Da_Cercare as string
private Percorso_Iniziale as string
Private FSO as Object
Private Sub Inizializza
    Percorso_Iniziale="C:\"
    Set FSO=CreateObject("Scripting.FileSystemObject")
    File_Da_Cercare="Pippo.Doc"
End Sub
Private Function Scandaglia(Byref Cartella as Object, Byval File_Cercato as
string, Byref Percorso_Trovato as object) as Boolean
Dim Fol as Object
Dim Fil as object
    Scandaglia=False
    If trim$(File_Cercato)=VbNullstring or trim$(Cartella)=VbNullString then
exit function
    For Each Fol in Cartella.SubFolders
        if Scandaglia(Fol, File_Cercato,Percorso_Trovato)=True then
            Scandaglia=True
            Exit Function
        end if
    Next Fol
    for each Fil in FSO.GetFolder(Cartella).Files
        if Instr(Ucase$(
fil.name
),Ucase$(File_Cercato))>0 then
            Scandaglia=True
            Set Percorso_Trovato=cartella
        End if
    next Fil
End Function
Private Sub Button1_Click
    Set Percorso_Trovato=Nothing
    If
Scandaglia(FSO.GetFolder(Percorso_Iniziale),File_Da_Cercare,Percorso_Trovato
) = True then
        call msgbox("File individuato in " &
percorso_trovato.name/path/fullpath
 non ricordo,vbokonly, "File trovato!")
    else
        call msgbox("File non individuato")
    end if
End sub
Ciao
Alberto