Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. WinForms / WPF .NET
Elenco File in directory
venerdì 21 settembre 2007 - 11.49
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
device78
Profilo
| Junior Member
76
messaggi | Data Invio:
ven 21 set 2007 - 11:49
forse è una stupidata, ma mi sto un pò piantando sulla risoluzione di un piccolo problema
vorrei realizzare una sezione di un programma dove do la possibilità all'utente di scegliere una directory e automaticamente viene creato un file di testo che contiene tutti i percorsi dei file contenuti in questa directory.
Del tipo scelgo cartel1 e nel file ottengo all'interno del mio file:
c:\cartel1\file.txt
c:\cartel1\file2.txt
c:\cartel1\cartel2\file3.txt
c:\cartel1\cartel2\file4.txt
....
adesso non ho problemi nello scrivere nel file di testo, ma non riesco ad implementare un loop che mi aiuta a scorrere tutti i file presenti in un directory iniziale.
Chi mi da una mano?
grazie...
alextyx
Profilo
| Expert
668
messaggi | Data Invio:
ven 21 set 2007 - 11:56
Con questo codice, riempio una textbox multiline con tutti i nomi dei file della directory "c:\windows":
Me.TextBox1.Clear()
Dim di As New IO.DirectoryInfo("c:\Windows")
For Each fi As IO.FileInfo In di.GetFiles
Me.TextBox1.Text &= fi.Name & vbCrLf
Next
device78
Profilo
| Junior Member
76
messaggi | Data Invio:
ven 21 set 2007 - 12:11
ok grazie.....
però forse sbaglio qualcosa io, ma cosi non mi elenca i file contenuti nelle cartelle contenute nella directory di inizio ma solo i file diciamo figli.Uso questa funzione:
Private Sub contafile(ByVal s As String)
Dim di As New IO.DirectoryInfo(s)
Dim fi As FileInfo
For Each fi In di.GetFiles
LBFile.Items.Add(fi.Name)
Application.DoEvents()
Next
End Sub
device78
Profilo
| Junior Member
76
messaggi | Data Invio:
ven 21 set 2007 - 12:19
ok fatto io....grazie alla tua idea....
Mi sembra che vada devo testarla bene però-
ecco la procedura RICORSIVA:
Private Sub contafile(ByVal s As String)
Dim di As New IO.DirectoryInfo(s)
Dim fi As FileInfo
For Each fi In di.GetFiles
LBFile.Items.Add(fi.Name)
Application.DoEvents()
Next
Dim dir As DirectoryInfo
For Each dir In di.GetDirectories
contafile(dir.FullName & "\")
Next
End Sub
GRAZIE!!!
alextyx
Profilo
| Expert
668
messaggi | Data Invio:
ven 21 set 2007 - 14:25
Non avevo capito che ti serviva anche esplorare le sottocartelle!
Comunque, se ci sei già riuscito da solo, complimenti e buon lavoro!
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !