Kod:
Private Sub DRm_Button2_Click(sender As System.Object, e As System.EventArgs) Handles DRm_Button2.Click
Dim FilesInDir As String() = Directory.GetFiles(Application.StartupPath & "\REPERTUARX\", "*.txt", SearchOption.AllDirectories)
Dim SFile As String
ListView1.Items.Clear()
For Each SFile In FilesInDir
ListView1.Items.Add(New ListViewItem(New String() {SFile.Replace(Application.StartupPath & "\REPERTUARX\", ""), CStr(FileLen(SFile))}))
Next
End SubSonuç şöyle oluyoru
TÜRKÜLER\Ah Le Yar.txt
TÜRKÜLER\XXXX.txt
TÜRKÜLER\Deneme.txt
TÜRKÜLER\Yar.txt
POP\Yyyyyy.txt
DİĞER\Cccccc.txt
Ben yukardaki kodu nasıl revize etmeliyim ki
Listvievde 1 kolon klasör ismi 2. kolon şarkı ismi olsun.
Örnek
Klasör Adı Şarkı Adı
POP Yyyy.txt
