Oppure

Loading
07/04/08 19:03
10gc
Non mi ero accorto della risposta...scusa!
aaa
07/04/08 19:03
10gc
Comunque non ci sto riuscendo...ci riproverò più tardi...

Una domanda (x curiosità;): ma è sicuro che con le conoscenze che ho posso realizzare un programma del genere?
Se si sono proprio un deficente...
Ultima modifica effettuata da 10gc 07/04/08 19:21
aaa
09/04/08 13:45
Il Totem
Lo puoi fare. Hai abbastanza conoscenze. Quello che devi sviluppare sono le competenze, ossia l'elaborazione delle conoscenze per risolvere problemi.

P.S.: non devi dichiarare una classe ArrayList, esiste già. E' spiegato nel capitolo 16, che, essendo prima delle proprietà, avresti dovuto leggere.
aaa
13/04/08 18:13
10gc
Credo di aver capito come fare...Non so però come aggiungere i file alla lista (ti metto il codice)

Imports System.IO
Module Module1
    Public Class Search
        Public Sub SearchFiles(ByVal Dir As String)
            Dim directories() As String = Directory.GetDirectories("C:\")
            Dim files() As String = Directory.GetFiles("C:\")
        End Sub
        
Public Sub AddFileToList(ByVal FileName As String)

        End Sub
    End Class
    
Sub Main()
        Dim Results As New ArrayList
        For Each S As String In Results
            Results.Add(S)
        Next
    End Sub

End Module


Nella procedura AddFileToList non so come fare per aggiungere alla lista i file trovati...:(
Ultima modifica effettuata da 10gc 13/04/08 18:56
aaa
14/04/08 14:14
Il Totem
Imports System.IO
Module Module1
    ! Perchè crei una nuova classe? Non serve. Io ti avevo detto
    ! di usare una classe per contenere i dati ottenuti (nome file / lunghezza)
    ! e non per contenere il metodo di ricerca.
    Public Class Search
        ! Se devi usare una funzione ricorsiva, forse è meglio che
        ! prima usi una funzione al posto di una procedura
        Public Sub SearchFiles(ByVal Dir As String)
            Dim directories() As String = Directory.GetDirectories("C:\")
            Dim files() As String = Directory.GetFiles("C:\")
            ! Bene. Ora che hai i file e le cartelle, cosa ci fai??
        End Sub
        
Public Sub AddFileToList(ByVal FileName As String)

        End Sub
    End Class
    
Sub Main()
   ! Essendo Results i risultati della funzione di ricerca, dovrebbero stare DENTRO
   ! la funzione di ricerca e non FUORI
   Dim Results As New ArrayList
   ! Hai appena dichiarato l'arraylist, senza aggiungerci niente, il
   ! che significa che è vuota. Ora, cosa pretendi di fare con questo
   ! codice, che non viene mai eseguito?
   For Each S As String In Results
        Results.Add(S)
   Next
End Sub

End Module


No, non hai capito. Il codice che hai postato è sbagliato concettualmente. Il mio consiglio è di ristudiarti a fondo le funzioni e le liste non tipizzate. Per ora facciamo qualcosa di più semplice. Guarda qui:
totem.altervista.org/eserciziario/…
Inoltre guarda le correzione che ti ho fatto sopra nel sorgente.
Ultima modifica effettuata da Il Totem 14/04/08 14:15
aaa
14/04/08 19:54
10gc
Innanzitutto grazie per la pazienza che stai avendo con me, perchè ce ne vuole tanta...
Poi volevo dirti che seguirò appieno il tuo consiglio, cioè quello di rivedere le funzioni e le liste non tipizzate...
aaa