Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19836

Re: Scorrere listbox ed eliminare files

Show all headers | View raw

Il giorno venerdì 2 ottobre 2020 alle 17:37:33 UTC+2 Paperino ha scritto:
> Marco75 ha scritto:
> > 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
> metti qui un debug.print filetodelete e vedi cosa esce. 
> Penso che scoprirai che ti sei scordato il backslash 
> fra il nome della cartella e il nome del file ;-)
> > If System.IO.File.Exists(FileToDelete) = True Then 
> > System.IO.File.Delete(FileToDelete) 
> > End If 
> > 
> > Next
> Bye, G.
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

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Scorrere listbox ed eliminare files Marco75 <marcoporzi75@gmail.com> - 2020-10-02 03:48 -0700
  Re: Scorrere listbox ed eliminare files Paperino <non_te@lo.dico.invalid> - 2020-10-02 17:37 +0200
    Re: Scorrere listbox ed eliminare files Marco75 <marcoporzi75@gmail.com> - 2020-10-05 23:17 -0700
    Re: Scorrere listbox ed eliminare files Marco75 <marcoporzi75@gmail.com> - 2020-10-16 06:38 -0700
      Re: Scorrere listbox ed eliminare files Marco75 <marcoporzi75@gmail.com> - 2020-10-16 06:50 -0700
      Re: Scorrere listbox ed eliminare files Marco75 <marcoporzi75@gmail.com> - 2020-10-20 07:23 -0700
        Re: Scorrere listbox ed eliminare files Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2020-10-20 21:15 +0200

csiph-web