Italian file.delete eliminazione massiva

[3394509365]

Avrei la necessità di eliminare dei file da una cartella.

Usando la solita istruzione File.Delete(FullPath,MyFile ) dovrei dare il percorso corretto, e il nome del file preciso

Per esempio nella mia cartella ci sono i seguenti file:
aaa_P2, aaa_P3, aaa_p5,ecc

Vorrei fare la ricerca ed eliminare tutti quelli che iniziano per aaa come posso fare ?


mi sono bloccato a qualcosa del genere:

    Dim nomefoto As String= "aaa"
    
    
    Dim FullPath As String =SQLDataBasePath & "/" & NomeRepertorio & "/" '

    Dim Items2 As List
    Items2.Initialize
    Items2 = File.ListFiles(FullPath)
    
    'Dim tit As String = Regex.Split( "_P",nomefoto)

    For Each line As String In Items2
        Dim s() As String = Regex.Split("_P", line)
        Dim Name As String = s(0).Trim
                

                        
        If Name = nomefoto  Then
            'lo metto nell' array
            Dim tit As String = Regex.Split( "_P",nomefoto)
            File.Delete(FullPath,Boooooooooooo)
        End If
    Next

 

[Star-Dust]

For Each Name As String In File.ListFiles(FullPath)
   if Name.Replace(FullPath,"").StartWidth("aaa") then file.Delete(path,Name)
Next

 

[giannimaione]

Dim iniziaCon as String = "REL"
Dim Items2 As List
    Items2.Initialize
    Items2 = File.ListFiles(FullPath)
    Dim nomeFile As String
    For i=0 To Items2.Size-1
        nomeFile=Items2.Get(i)
        If nomeFile.StartsWith(iniziaCon) = True Then 
            Log(nomeFile) 'qui trovi i file che iniziano con il valore di iniziaCon
        End If
    Next

 

[Star-Dust]

Dim iniziaCon as String = "REL"
Dim Items2 As List
    Items2.Initialize
    Items2 = File.ListFiles(FullPath)
    Dim nomeFile As String
    For i=0 To Items2.Size-1
        nomeFile=Items2.Get(i)
        If nomeFile.StartsWith(iniziaCon) = True Then
            Log(nomeFile) 'qui trovi i file che iniziano con il valore di iniziaCon
        End If
    Next

Devi togliere il Percorso all'inizio del nome file. Perchè restituisce la lista dei NomiFile completo di percorso.

 

[3394509365]

che velocità di risposta.

Fatto grazie

Dim Items2 As List
    Dim nomefoto As String= "aaa"
        
    Dim FullPath As String =SQLDataBasePath & "/" & NomeRepertorio & "/" '
    
    Items2.Initialize
    Items2 = File.ListFiles(FullPath)
    
    For Each line As String In Items2
        If line.StartsWith(nomefoto) Then
            File.Delete(FullPath,line)
        End If
    
    Next

 

[giannimaione]

Devi togliere il Percorso all'inizio del nome file. Perchè restituisce la lista dei NomiFile completo di percorso.

non ho capito; ho verificato con B4J e nomeFile contiene SOLO il nome del file
oppure ti riferisci a

Dim FullPath As String =SQLDataBasePath & "/" & NomeRepertorio & "/" '