• Giúp tạo form tìm kiếm các file trong windows
  • Giúp tạo form tìm kiếm các file trong windows

    aitinh2005 > 25-07-15, 06:10 PM

    Hi all,
    Mình là thành viên mới và kiến thức còn cùi mong các bạn chỉ giáo.
    mình có 1 vấn đề như sau: 
    viết bằng access 2003: tạo 1 form de tim kiếm các file trong windows
    giống hệt tìm kiếm trong windows: chọn đường dẫn, go ten file ( có ký tự *.* luôn)
    các bạn nào biết chỉ giúp mình cái hoac làm file cung dc.
    Thanks
  • RE: Giúp tạo form tìm kiếm các file trong windows

    tranthanhan1962 > 25-07-15, 10:40 PM

    (25-07-15, 06:10 PM)aitinh2005 Đã viết: Hi all,
    Mình là thành viên mới và kiến thức còn cùi mong các bạn chỉ giáo.
    mình có 1 vấn đề như sau: 
    viết bằng access 2003: tạo 1 form de tim kiếm các file trong windows
    giống hệt tìm kiếm trong windows: chọn đường dẫn, go ten file ( có ký tự *.* luôn)
    các bạn nào biết chỉ giúp mình cái hoac làm file cung dc.
    Thanks

    Vấn đề bạn đưa ra không phải là khó lắm. Nhưng để tạo 1 form tìm kiếm file trong windows tuy không phức tạp như cũng tương đối nhiêu khê về code. Vì bạn phải tạo form, table và các nút lệnh chạy code tương ứng.
    Trên forum mình có post lên Ứng dụng đổi tên file trong windows hàng loạt . trong đó đã bao hàm phần tìm kiếm tên tập tin bạn có thể nghiên cứu và chuyển thành ứng dụng tìm tên file của bạn.
    Chú ý:
    Module liên hệ đến việc mở thư mục browse windows: Module modCallBacks.
    Sub mở Windows Browse: Private Sub Chonthumucnguon_Click()
    Function tìm và lưu tên các tập tin vào table: Function DanhsachFile.
    Function DanhsachFile để tìm tên tập tin có đoạn mã tìm kiếm tên tập tin:

    Mã PHP:
    With Application.FileSearch
    .LookIn TenFolder: .FileName "*.*"
    … 

    Mình khai báo là
    Mã PHP:
    .FileName "*.*" 
    Vì lấy tất cả. Nếu bạn muốn tìm kiếm tùy thích thì có thể tạo một textbox trên form rồi khai báo biến để tìm.
    Hì hì. Chỉ phân tích từ một ứng dụng có sẵn mà đã nhiêu khê thế rồi 021 . Chắc bạn phải tốn kha khá thời gian để làm công việc này. Chúc bạn thành công