Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2004
    Messaggi
    47

    [VB.NET] ListBox che restituisce i nomi dei file contenuti nella dir

    Vorrei che una listbox mi restituisse i nomi dei file contenuti in una directory, scrivendo come sotto mi viene restituito anche il percorso, io vorrei solo i nomi senza l'estensione:

    codice:
    ListBox1.Items.AddRange(System.IO.Directory.GetFiles("C:\", "*.jpg"))
    Invece di utilizzare "System.IO.Directory.GetFiles" che restituisce anche il percorso, potrei utilizzare "My.Computer.FileSystem.GetFiles", infatti tra le info c'è scritto:

    Restituisce un insieme di stringhe in sola lettura che rappresenta i nomi dei file contenuti in una directory
    Però se scrivo così viene restituito un errore:

    codice:
    ListBox1.Items.AddRange(My.Computer.FileSystem.GetFiles("c:\"))
    Come posso risolvere?

  2. #2
    Utente di HTML.it
    Registrato dal
    Jul 2004
    Messaggi
    47
    Ho risolto così:

    codice:
        Private Function ListaFiles(ByVal Cartella As String, ByVal Estensione As String) As String()
    
            Dim i As Integer
            Dim n As String
            Dim f() As String = System.IO.Directory.GetFiles(Cartella, Estensione)
    
    
            'restituisce un array contenente i nomi dei file con estensione escluso il percorso
            For i = 0 To f.Length - 1
    
                f(i) = f(i).Substring(f(i).LastIndexOf("\") + 1)
    
            Next
    
    
            'elimina l'estensione ai nomi dei file
            For i = 0 To f.Length - 1
    
                n = f(i).LastIndexOf(".")
    
                'se minore di 0 vuol dire che c'è un file senza estensione
                'senza ciclo condizionale restituisce un eccezione
                If n > 0 Then
    
                    'elimina i caratteri a partire dall'ultimo punto
                    f(i) = f(i).Remove(n)
    
                End If
    
            Next
    
            Return f
    
        End Function
    Così invece viene visualizzato l'array nella listbox:

    codice:
            ListBox1.Items.AddRange(ListaFiles("C:\", "*.jpg"))

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.