Dim accepted_extensions As String = ".264 .3gp .asf .asx .avi .avc .bsf .bdmv .divx .dv .evo .f4v .flv .hdmov .m1v .m2t .m2ts .m2v .m4v .mkv .mov .mp4 .mpeg .mpg .mpv4 .mts .ogm .ogv .qt .rmvb .swf .ts .vob .webm .wmv"
 
    Public Sub PlaylistsWorkWithFilesInDir(ByVal aDir As DirectoryInfo)
        consolebox.AppendText("Processing: " + aDir.ToString() + vbNewLine)
        consolebox.SelectionStart = consolebox.Text.Length
        consolebox.ScrollToCaret()
        Dim aFile As FileInfo
        For Each aFile In aDir.GetFiles()
            If accepted_extensions.ToLower.Contains(aFile.Extension.ToLower) Then
                Using writer As StreamWriter = New StreamWriter(aFile.DirectoryName.ToString() & "\" & aDir.Name & ".m3u", True, System.Text.Encoding.UTF8)
                    writer.WriteLine(aFile.FullName.ToString())
                End Using
            End If
        Next
    End Sub
 

If IO.FileType(aFile) = "VideoFile" Then...

           Public Video As String() = New String() {".ts", ".tts", ".m4v", ".mp4", ".mp4v", ".m2t", ".m2ts", ".mts", _
                              ".mov", ".avi", ".m1v", ".m2v", ".mod", ".mp2v", ".mpa", ".mpe", _
                              ".mpeg", ".mpg", ".mpv2", ".3g2", ".3gp2", ".3gp", ".3gpp", ".asf", _
                              ".wmv", ".flv", ".ogg", ".mkv", ".amc", ".mpeg1", ".mpeg2", ".mpeg4", _
                              ".mqv", ".qt", ".qtl", ".wmx", ".wmz"}