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