[code] 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))}))