IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Visual Basic (https://www.ircforumlari.net/visual-basic/)

- - Dosya Aratıp Listbox a okutmak [VB.NET] (https://www.ircforumlari.net/visual-basic/718433-dosya-aratip-listbox-okutmak-vbulletinnet.html)

Kaf_Dağı

07 Aralık 2015 15:01

Dosya Aratıp Listbox a okutmak [VB.NET]

Dosya Aratıp Listbox a okutmak [VB.NET]

Kod:

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

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:23.