Oyun dosyası aratma

        ListBox1.Items.Clear()

        For Each h In My.Computer.FileSystem.GetFiles("buraya dosya konumunu yazman gerekiyor")

            If h.ToString.ToLower.EndsWith("buraya hiçbir şey yazma") Then

                ListBox1.Items.Add(h.ToString)

            End If

        Next

        ListBox1.Items.Add("SIRALAMANIN SONU")

        Timer1.Start()

        listbox1.SelectedIndex += 1 ' Listboxdaki itemleri tek tek seçer.

        ' Büyük küçük harflere dikkat etmek lazım text arıyor sonuçta

        If ListBox1.SelectedItem = "d3d.dll" Or "d4d.dll" Or "d5d.dll" Or "oyun.exe" Then

            ' eğer yukarda yazdığımız dosya isimlerinden biri varsa

            MsgBox("Dosyalar Tarandı , Başlatılıyor..")

        Else

            ' eğer yukarda yazdığımız dosya isimlerinden biri yoksa

            MsgBox("Bilinmeyen Dosya Tespit Edildi.")

        End If