Wat is er mis met deze functie ?

[hanonymouss]

Hallo allemaal,

Ik ben bezig met een drag en drop listview waarmee ik bestanden daar naartoe wil slepen. Deze lukt goed.

De bestanden moeten bestaan uit videoformaten dus alleen deze formaten [.avi .wmv .flv .mov . mp4 .mpg] anders wordt het bestand niet opgenomen.


Dit is mijn functie:

[CPP]Private Function extbestand(ByVal bestandsnaam As String)
Dim filePath As String = bestandsnaam
Dim dotPosition As Integer = filePath.LastIndexOf(".")
Dim filenameOnly As String = filePath.Substring(dotPosition + 1)

If Not filenameOnly.EndsWith("avi") Or filenameOnly.EndsWith("wmv") Or filenameOnly.EndsWith("mpg") Or filenameOnly.EndsWith("flv") Or filenameOnly.EndsWith("mp4") _
Or filenameOnly.EndsWith("mov") Then
Return MessageBox.Show("Dit is geen geldige videoformaat. Gelieve een videoformaat van de extenstie: wmv, avi, mp4, flv, mov, mpg te kiezen.")

Else
Return Nothing
End If

End Function[/CPP]

De code herkent alleen de eerste formaat (avi) voor de rest herkent hij niets

Alvast Bedankt

 

[The Mighty Atom]

Je moet het Not sleutelwoord ook na elke Or zetten, dus zo:

        If Not filenameOnly.EndsWith("avi") Or [B]Not[/B] filenameOnly.EndsWith("wmv") Or [B]Not[/B]
filenameOnly.EndsWith("mpg") Or [B]Not[/B] filenameOnly.EndsWith("flv") Or [B]Not[/B]
filenameOnly.EndsWith("mp4") Or [B]Not[/B] filenameOnly.EndsWith("mov") Then

 

[JoZ1]

Maar dan wel zo met het And-keyword:

[cpp]If Not filenameOnly.EndsWith("avi") And Not filenameOnly.EndsWith("wmv") And Not
filenameOnly.EndsWith("mpg") And Not filenameOnly.EndsWith("flv") And Not
filenameOnly.EndsWith("mp4") And Not filenameOnly.EndsWith("mov") Then[/cpp]

 

[hanonymouss]

Wat stom van me

Dank je wel The Mighty Atom en JoZ1 !!

:thumb: