Newsgroup: it.comp.lang.visual-basic
Titolo: Scorrere listbox ed eliminare files

ciao,
ho la necessità di eliminare dei files da una cartella.
tali file corrispondono a quelli presenti in una listbox per cui devo scorrere la listbox ed eliminare i file (nome file e item listbox sono identici).
ho provato con questo codice ma i file non vengono eliminati:
 
 For Each i As String In listbox1.Items.ToString
 
                    Dim FileToDelete As String
                    FileToDelete = "C:\Cartella di test" & i
                    If System.IO.File.Exists(FileToDelete) = True Then
                        System.IO.File.Delete(FileToDelete)
                    End If
 
                Next
 
grazie
Marco

                 Next
 
Bye, G.


ciao,
ho ancora problemi di rete in azienda per cui non posso aprire il progetto comunque il backslash c'è.
appena possibile farò il debug.print ma avevo provato con il blocco del codice passo passo tramite F5 e non mi leggeva la voce dell' Item bensì una lettera alla volta che componeva l-i-s-t-b-o-x-1 se non ricordo male...
Marco

Il giorno venerdì 2 ottobre 2020 alle 17:37:33 UTC+2 Paperino ha scritto:

ciao,
sono tornato allo sviluppo dell'applicazione, ora ti posto tutto il codice.
in pratica scorro la listbox e devo cancellare da 2 cartelle i files corrispondenti a quanto letto in listbox
Fino a poco fa funzionava, ho fatto una modifica poi cancellata e ora mi dice che il processo non può accedere al file perchè in uso da un altro processo!
 
ecco il codice (modifico il nome dei percorsi perchè molto lunghi):
 
 
'Scorro la lista delle fow chart selezionate per eliminare il relativo file nella cartella
        For a As Integer = 0 To LbFlowChartSelezionateMacina.Items.Count - 1
 
            Dim FlowChartText1 As String
 
 
            FlowChartText1 = LbFlowChartSelezionateMacina.Items(a).ToString
 
 
            'Rimuovo la Flow-Chart dalla cartella lista flow chart ed eventualmente dalla cartella flow chart remota
            Dim FileToDelete1 As String
            Dim FileToDelete3 As String
 
            FileToDelete1 = "\\Server\Cartella\1" & FlowChartText1
            FileToDelete3 = "\\Server\Cartella2" & FlowChartText1
            If System.IO.File.Exists(FileToDelete1) = True Then
                System.IO.File.Delete(FileToDelete1)
            End If
 
            If System.IO.File.Exists(FileToDelete3) = True Then
                System.IO.File.Delete(FileToDelete3)
            End If
 
 
 
        Next
 
l'errore mi compare qui:
 If System.IO.File.Exists(FileToDelete1) = True Then
                System.IO.File.Delete(FileToDelete1)<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            End If
 
magari esiste un codice più semplice e snello per fare ciò che chiedo...
ho comunque anche un errore quando ho un file ( ad esempio test.pdf) presente sia nella cartella 1 che nella cartella 2
 
devo eliminarli entrambi se presenti
grazie
Marco
 
 
 
 
 


ho sbagliato a scrivere i percorsi...
 
FileToDelete1 = "\\Server\Cartella1\" & FlowChartText1


Il giorno venerdì 16 ottobre 2020 alle 15:38:58 UTC+2 Marco75 ha scritto:

Nessuno ha idea di come gestire questi files?
grazie
Marco

> System.IO.File.Delete(FileToDelete1)<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
 
io punto 10 euro sulla virtualizzazione;
nel frattempo se posti cosa succede cambiando quella riga con
 
 
debug.print FileToDelete1
 
 
così come diceva paperino potremmo avere un quadro piu chiaro....