Newsgroup: it.comp.lang.visual-basic
Titolo: Cerca file

 Salve a tutti.
Questo sotto vuol dire vai a vedere se trovi il file tip.txt e se lo trovi 
lancia il frmSplash.Show . Io vorrei poter cambiare il nome del file (perchè 
ogni utente crea un file diverso) ogni volta quindi vorrei che il codice 
leggesse il nome che io ho scritto nel text e sopratutto che lo cercasse 
dentro la cartella scelta ma anche nelle sottocartelle (perchè ogni utente 
ha la sua cartella e sono tutte dentro una cartella principale).
spero di essermi spiegato.
On Error Resume Next
Dim fileexist As Boolean
fileexist = Len(Dir(App.Path & "\tip.txt")) <> 0
If fileexist = True Then
Else
frmSplash.Show vbModal
End If
End Sub 

 On Error Resume Next
Bandisci SEMPRE il Resume Next!
Provoca solo casini e complica la risoluzione dei problemi.
Ciao 

 leggesse il nome che io ho scritto nel text 
...
Se non ho capito male, hai una textbox dove scrivi il file da cercare,
giusto?
In questo caso, ammettiamo di avere la textbox che si chiama txtText, 
Variabile =  dir (app.path & "\" & txtText.Text)
Naturalmente nella textbox dovrai scrivere il nome del file completo di
estensione, oppure dovrai dire tu da codice di aggiungerla (se sei sicuro
che l'estensione sara' sempre di un tipo).
Non dimenticare il "\" che ho visto nel tuo esempio mancare.
App.Path ti restituisce il Path senza la barra finale, a meno che non stia
direttamente sulla radice, cioe' il C:\  viene restituito correttamente.
Il discorso sottocartelle e' leggermente piu' complesso.
Come chiedeva Fabio, che tipo di nidificazioni ci sono?
Dovresti prima lanciare una funzione Dir per vedere se ci sono e quante
sono le sottocartelle di una cartella, aprirle e lanciare una Dir alla
ricerca del tuo file di testo, ma se ci sono altre sottocartelle? Ripetere
l'operazione nelle sotto-sotto cartelle, e cosi' via.
Un po' lunghino.
A meno che non imposti una variabile con il nome dell'utente, ed utilizzi
una sottocartella con lo stesso nome.
Mettiamo che hai un utente che si chiama Utente1, dovrai creare una
sottocartella Utente1 nel quale salverai il file incriminato.
A quel punto,
Variabile = Dir (App.Path & "\" & NomeUtente & "\" & txtText1.Text
chiaramente la variabile NomeUtente e' la variabile dove, in qualche modo,
hai salvato il nome dell'utente connesso in quel momento.
Per tutte le cavolate che ho scritto, l'ufficio reclami e' aperto tutti i
giorni della sesta settimana di febbraio, dalle 9 alle 17 orario
continuato.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 giorni della sesta settimana di febbraio
Ah, non fai come quelli del G8? (ma non era un pittore?)
"ci sentiamo tra 50anni, se non abbiamo raggiunto gli obbiettivi i nostri 
nipoti si inventeranno una scusa tipo che non è colpa loro ma dei loro nonni 
idioti e profittatori" :)
Ciao 

 idioti e profittatori" :)
...
No no, io questo lo dico ora.... ah, se mi' nonno fosse stato piu svejo,
se se fossero vennuti l'appartamenti appena costruiti e cor guadagno
ricorstruiti er doppio (e via cosi' fino ad essere l'unico proprietario di
MizioLand)


Fabio ha scritto:

Fabio non tocchiamo la politica... io personalmente sono come una camera 
satura di vapori di benzina... non metterci il fiammifero.
Ti dico solo una cosa (condivisibile o meno) "
beppegrillo.it
" ;-)
bye

 ha scritto nel messaggio 
news:f4bi6j$7ih$1...@news.newsland.it...


 Grazie, non ho ancora risolto...
...
Che tipo di problemi hai?
