Dim scl As String
    Dim fso As Object, fs As Object
    Dim yol1 As String = "Data\System\müşterikayıtları\"
  Dim y As Integer
    Dim tampon()

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