arkadaşlar elimde bir kod var

נยรт ℓιкє тнiร ツ arkadaşımın yardımıyla bulduğum bir kod

PHP Code:
Dim scl As String
Dim fso As Object, fs As Object
Dim yol1 As String = "Data\System\muşterikayıtları\"
Dim y As Integer
Dim tampon()

fso = CreateObject("Scripting.FileSystemObject")
For Each fs In fso.getfolder(calışan).Files
If fso.GetExtensionName(fs) = "conf" Then
scl = (Microsoft.VisualBasic.Left(fs.Name, Len(fs.Name) - 4))
If System.IO.File.Exists(calışan & "\" & fs.Name) Then
tarihi.Items.Add(scl)
End If
End If
Next


bu kodla istediğim klasordeki istediğim uzantıda olan butun dosyaları listbox a aktarabiliyorum..

fakat şoyle bir sorunum var.

ben dosyaların adını değil iceriğini listbox a aktarmak istiyorum

orn: note.txt var klasorde

listbox a " note " değilde

"note"'nin icinde yazan bilgiyi listbox a eklemek istiyorum

Lutfen Yardımcı Olurmusunuz ?
__________________