OpenFileDialog penceresi ile secilen surucudeki txt dosyalarını listboxa atmam gerekiyor.

orneğin C secildi C icerisindeki tum txt ler listboxa gelecek.Aşağıdaki kod calışmıyor tabi OFD1.FileName yerine C: yazınca sorun olmuyor ama el ile secince okumuyor.

Kod:
Dim scl As String Dim fso As Object, fs As Object ListBox1.Items.Clear() fso = CreateObject("Scripting.FileSystemObject") For Each fs In fso.getfolder(OpenFileDialog1.FileName).Files If fso.GetExtensionName(fs) = "txt" Then scl = (Microsoft.VisualBasic.Left(fs.Name, Len(fs.Name) - 4)) If System.IO.File.Exists(OpenFileDialog1.FileName & fs.Name) Then ListBox1.Items.Add(fs.Name) End If End If Next

__________________