Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di abellos
    Registrato dal
    Feb 2002
    Messaggi
    431

    [vb .net 2010] [RISOLTO] utilizzo arraylist con le stringhe

    Ciao ho questa funzione per cercare file e cartelle dato un percorso

    codice:
    Public Function ProcessDir(ByVal Dir As String)  
            Dim Files As New ArrayList()
            
            ' Processa la lista dei files trovati nella directory passata
            Dim fileEntries As String() = Directory.GetFiles(Dir)
            For Each fileName As String In fileEntries
                Files.Add(fileName)
            Next
    
            ' Processa tutte le directory trovate nella directory passata alla funzione
            Dim subdirectoryEntries As String() = Directory.GetDirectories(Dir)
            For Each subdirectory As String In subdirectoryEntries
                ProcessDir(subdirectory)
            Next
    
            ProcessDir = Files
        End Function
    prima la variabile Files era un array tipo string, pero dovevo dare un valore fisso al numero di righe dell' array, usando un arraylist ho letto che non deve essere fisso. Pero a me serve che la funzione restituisca una serie di percorsi che poi devo ciclare ed inserire in una tabella di access, come posso convertire in stringa la matrice Files?
    Da un grande potere derivano grandi responsabilità

  2. #2
    Utente di HTML.it L'avatar di abellos
    Registrato dal
    Feb 2002
    Messaggi
    431
    ho risolto, metto la soluzione qui cosi potrebbe servire anche ad altri

    codice:
    Public Function ProcessDir(ByVal Dir As String) As IList(Of String)
            Dim Files As New List(Of String)
    
            ' Processa la lista dei files trovati nella directory passata
            Dim fileEntries As String() = Directory.GetFiles(Dir)
            For Each fileName As String In fileEntries
                Files.Add(fileName)
            Next
    
            ' Processa tutte le directory trovate nella directory passata alla funzione
            Dim subdirectoryEntries As String() = Directory.GetDirectories(Dir)
            For Each subdirectory As String In subdirectoryEntries
                ProcessDir(subdirectory)
            Next
    
            ProcessDir = Files
        End Function
    Da un grande potere derivano grandi responsabilità

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.