Italian file.delete eliminazione massiva

    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

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

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

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

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