[مشروع] تصميم تجميعة لسورة الاخلاص ( تلاوة.فيديوهات.فلاشات. تفسير. ترجمة )

PHP كود :
 ' القراء
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\mp3")
            Dim type As New IO.FileInfo(Mfile)
            lst_mp3aya.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox1.Items.Add(nn)
        Next

        ' صور القراء
        For Each Mimg In IO.Directory.GetFiles(Application.StartupPath & "\photos")
            Dim type As New IO.FileInfo(Mimg)
            Dim nnr = Mid(type.Name, type.Name.Length - 2, type.Name.Length)
            If nnr = "jpg" Then
                lst_ImageChyoukh.Add(Mimg)
            End If
        Next

        'فيدوهات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Videos")
            Dim type As New IO.FileInfo(Mfile)
            lst_video.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox2.Items.Add(nn)
        Next

        ' فلاشات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Flash")
            Dim type As New IO.FileInfo(Mfile)
            lst_Flach.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox3.Items.Add(nn)
        Next


        ' تفاسير
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Tafsir")
            Dim type As New IO.FileInfo(Mfile)
            lst_Tafasir.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox4.Items.Add(nn)
        Next


        ' ترجمات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\trjama")
            Dim type As New IO.FileInfo(Mfile)
            lst_Tarajom.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox5.Items.Add(nn)
        Next