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

Groups > it.comp.lang.visual-basic > #19830 > unrolled thread

Scorrere listbox ed eliminare files

Started byMarco75 <marcoporzi75@gmail.com>
First post2020-10-02 03:48 -0700
Last post2020-10-20 21:15 +0200
Articles 7 — 3 participants

Back to article view | Back to it.comp.lang.visual-basic

Contents

  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

#19830 — Scorrere listbox ed eliminare files

FromMarco75 <marcoporzi75@gmail.com>
Date2020-10-02 03:48 -0700
SubjectScorrere listbox ed eliminare files
Message-ID<e18a0fb9-cc04-4db5-a377-8765472b433en@googlegroups.com>
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

[toc] | [next] | [standalone]

#19831

FromPaperino <non_te@lo.dico.invalid>
Date2020-10-02 17:37 +0200
Message-ID<rl7hfp$1uh$1@gioia.aioe.org>
In reply to#19830
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.

[toc] | [prev] | [next] | [standalone]

#19835

FromMarco75 <marcoporzi75@gmail.com>
Date2020-10-05 23:17 -0700
Message-ID<c18deb55-5cf0-4bf9-ab06-513068fbd07an@googlegroups.com>
In reply to#19831
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,
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

[toc] | [prev] | [next] | [standalone]

#19836

FromMarco75 <marcoporzi75@gmail.com>
Date2020-10-16 06:38 -0700
Message-ID<7fe6ce61-aa35-4324-856f-f10f4e05da28n@googlegroups.com>
In reply to#19831
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

[toc] | [prev] | [next] | [standalone]

#19837

FromMarco75 <marcoporzi75@gmail.com>
Date2020-10-16 06:50 -0700
Message-ID<ff5fbc46-434a-4170-8027-93133c3f5ba3n@googlegroups.com>
In reply to#19836
Il giorno venerdì 16 ottobre 2020 alle 15:38:58 UTC+2 Marco75 ha scritto:
> 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
ho sbagliato a scrivere i percorsi...

FileToDelete1 = "\\Server\Cartella1\" & FlowChartText1
FileToDelete3 = "\\Server\Cartella2\" & FlowChartText1

[toc] | [prev] | [next] | [standalone]

#19838

FromMarco75 <marcoporzi75@gmail.com>
Date2020-10-20 07:23 -0700
Message-ID<ca808c32-9205-43e2-8b16-1bd882dae57fn@googlegroups.com>
In reply to#19836
Il giorno venerdì 16 ottobre 2020 alle 15:38:58 UTC+2 Marco75 ha scritto:
> 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

Nessuno ha idea di come gestire questi files?
grazie
Marco

[toc] | [prev] | [next] | [standalone]

#19839

FromFranz_aRTiglio <franzgol@N0SPAMtin.it>
Date2020-10-20 21:15 +0200
Message-ID<rmncn9$jo2$1@gioia.aioe.org>
In reply to#19838
Nel suo scritto precedente, Marco75 ha sostenuto :

>> 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....

[toc] | [prev] | [standalone]

Back to top | Article view | it.comp.lang.visual-basic

csiph-web