perfettissimograzie mille ... il controllo nell'array lo faccio cosi:
Dim trovato As Boolean = False
Era una fesseria, ma non c'avevo pensato !codice:For i As Integer = LBound(estensioni_consentite) To UBound(estensioni_consentite) If InStr(1, filename, estensioni_consentite(i)) > 0 Then trovato = True exit for End If Nextgrazie ancora !