Phần mềm tìm file nhạc trùng lặp

[mario]

Máy em có khá nhiều nhạc MP3 và cũng khá nhiều file nhạc trùng tên nhau nên em muốn viết một phần mềm để tìm các file nhạc trùng lặp rồi lựa ra file chất lượng tốt nhất để giữ lại. còn lại xóa hết.
Trên mạng cũng đã có nhiều phần mềm kiểu này, tuy nhiên em vẫn muốn tự viết một phần mềm mang phong cách HUSITC, phong cách Việt, ủng hộ phong trào người Việt dùng hàng Việt

[thuanfun]

Một ý tưởng cực kỳ hay , mình sẽ hướng dẫn chi tiết Project này (cho cả những người mới bắt đầu).

Trước tiên chúng ta sẽ thiết kế một chương trình tìm kiếm file trên máy tính.

Bạn tạo một Project mới, thêm một TextBox đặt tên là txt_ThuMuc:


Đặt một Label trược Textbox đó, đặt Text của Label là "Thư mục:"


Thêm một Button và đặt tên là Button_ThuMuc:


Đặt thuộc tính Text của Button_ThuMuc là "Mở..."


Thêm một TextBox đặt tên là txt_TuKhoa, một Label trước nó có Text là "Từ khóa:"


Thêm một Button, đặt tên là Button_Tim và Text là "Tìm kiếm"


Thêm một ListBox, đặt tên là List_KetQua:


Đến đây chúng ta đã thiết kế xong phần giao diện.

Ý nghĩa các Control như sau:
+ txt_ThuMuc là nơi lưu đường dẫn đến thư mục mà phần mềm sẽ tìm kiếm trong đó

+ Button_ThuMuc là nút để khi ta Click vào sẽ hiện lên cửa sổ chọn thư mục:


+ txt_TuKhoa là nơi ta nhập từ khóa tìm kiếm

+ Button_Tim là nút mà ta nhấn vào để bắt đầu tìm kiếm

+ List_KetQua là nơi hiển thị kết quả tìm kiếm

Phân tích các sự kiện

1. Nút "Mở..." thư mục: Tên của nút này là Button_ThuMuc. Khi người dùng click chuột vào nút này, sẽ có một cửa sổ hiện lên để bạn chọn thư mục như hình sau:


Để thực hiện việc này, bạn thêm control FolderBrowseDialog, Control này không xuất hiện trên Form1, nó nằm ở khu vực khoanh tròn đỏ ở hình dưới. Dừng quan tâm đến vị trí của nó. Đặt tên nó là HopThoai_MoThuMuc:


DoubleClick vào nút "Mở..." để bắt đầu viết code như sau:

Public Class Form1
    Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
        HopThoai_MoThuMuc.ShowDialog()
    End Sub
End Class

Đoạn Code trên nhằm gọi cửa sổ "Browse For Folder".

sau khi chon thư mục, nhấn OK ở cửa sổ "Browse For Folder" thì đường dẫn đầy đủ của thư mục sẽ hiện lên ở TextBox txt_ThuMuc, thêm dòng code txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath vào sự kiện Button_ThuMuc_Click, được:
Public Class Form1
    Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
        HopThoai_MoThuMuc.ShowDialog()
        txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
    End Sub
End Class

Đến đây chúng ta đã viết xong code dành cho sự kiện click vào nút "Mở..." để chọn thư mục và gán đường dẫn của thư mục đó vào ô txt_ThuMuc.

2.Nút tìm kiếm Khi click vào nút "Tìm kiếm ( có tên là Button_Tim), chương trình sẽ lấy từ khóa tìm kiếm ở ô txt_TuKhoa. Sau đó tiến hành tìm kiếm với từ khóa đó, tìm trong thư mục được chọn trên ô txt_ThuMuc. Kết quả tìm kiếm hiển thị ở List_KetQua. Code đầy đủ như sau:

Public Class Form1
    Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
        HopThoai_MoThuMuc.ShowDialog()
        txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
    End Sub

    Private Sub Button_Tim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tim.Click
        Dim KQ() As String = Nothing   ' Khai báo mảng string KQ để lưu các kết quả tìm kiếm được
        Dim ThuMuc As String, TuKhoa As String
        ThuMuc = txt_ThuMuc.Text   ' Lấy đường dẫn của thư mục đã chọn gán vào biến ThuMuc
        TuKhoa = txt_TuKhoa.Text ' Lấy  từ khóa gán vào biến TuKhoa

        '___ Tìm kiếm các file thỏa mãn từ khóa TuKhoa và trong thư mục ThuMuc ____
        KQ = System.IO.Directory.GetFiles(ThuMuc, TuKhoa, IO.SearchOption.AllDirectories)
        'Kết quả là một mảng các đường dẫn đến file tìm được
        List_KetQua.Items.Clear()  ' Xóa hết kết quả lần tìm kiếm trước
        If KQ Is Nothing Then ' Nếu không tìm được kết quả nào thì
            ' Thêm vào List_KetQua dòng thông báo
            List_KetQua.Items.Add("Không tìm được file nào.")
        Else   ' ngoài ra (tương đương với có kết quả)
            'Biểu diễn kết quả lên List_KetQua
            List_KetQua.Items.AddRange(KQ)
        End If
    End Sub
End Class

Đến đây chúng ta đã hoàn thành một phần mềm tìm kiếm file đơn giản:


Code phía trên hơi dài vì có các dòng chú thích (màu xanh lá cây), code ngắn gọn như sau:
Public Class Form1
    Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
        HopThoai_MoThuMuc.ShowDialog()
        txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
    End Sub
    Private Sub Button_Tim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tim.Click
        Dim KQ() As String = Nothing
        KQ = System.IO.Directory.GetFiles(txt_ThuMuc.Text, txt_TuKhoa.Text, IO.SearchOption.AllDirectories)
        List_KetQua.Items.Clear()
        If KQ Is Nothing Then
            List_KetQua.Items.Add("Không tìm được file nào.")
        Else
            List_KetQua.Items.AddRange(KQ)
        End If
    End Sub
End Class


(.....còn nữa....)