Giới hạn của code mở file là phải xác định file đó có phần mềm được cài trên máy hay chưa, sau đó ta phải xác đinh nó được cài trên ổ đĩa nào...sau đó dùng hàm Shell để gọi đến ứng dụng đang cài đặt trên máy...Rất phiền phức, đôi khi lại bất tiện.

Hôm nay

Đây là bài thứ 5 mình sẽ giới thiệu đó là: hàm mở mọi loại file gồm file:

+ Mọi loại file Office 2003,2007,2010,2013
+ Mọi loại file Âm nhạc, Video.....
+ Mọi loại file Nén: zip, rar, iso.....

Nói chung là muốn mở file nào cũng được, chỉ cần 1 hàm thôi, không cần biết ứng dụng nó được cài lên ổ nào cũng có thể mở nó lên....

Hình mình họa.


Demo đính kèm.

Ghi chú: Đường dẫn đến file phải không được có tiếng việt.

Bài thứ 6: Tạo hàm + form lấy tin Rss từ các trang Web.

Rất mong các ý kiến đóng góp của các anh/chị cùng các bạn.

từ: Nguyễn Nam Hùng <namhung88qb@gmail.com>
tới: maidinhdan@gmail.com

Hỏi : của Hùng
Chào bác, em có tham khảo cái Demo mở mọi loại file của Bác trên trang thuthuataccess.com. Tuy nhiên nút lệnh Xem file k hoạt động được. Em đang làm một bài tập tương tự nhiw cái đề mo của bác, có gì bác chỉ giáo giúp e với ah

Đáp: của maidinhdan
Không mở được bạn kiểm tra lại đường dẫn đến tập tin đó có Tiếng việt có dấu, nếu có sẽ không mở được bạn ạ. File này đã được Test đưa vào sử dụng và được các thành viên đánh giá là rất tốt.

Bạn cần đọc kỹ các chú thích của mình trên đó khi triển khai. Hoặc cần thiết bạn chụp lại hình báo lỗi cho mình (nếu có).

Hỏi : của Hùng
+ Chào bác! Đúng là hôm trước em đã không đọc kỹ bài của bác. Em đã thử lại và chạy rất ok rồi.

+ Tuy nhiên có trường hợp sau e không hiểu nó như thế nào:
Em dùng Word 2010 tạo ra 2 tệp "kiem tra 1.doc" và"kiem tra 2.docx"

thì khi đưa vào chương trình không mở tệp "kiem tra 1.doc".
Còn tệp "kiem tra 1.docx" thì mở được bình thường.Trình độ em gà quá nên Mong bác xem xét chỉ giáo giúp e với ạ.
Xinh chân thành cảm ơn!

Đáp: của maidinhdan
Bạn Hùng thân mến, ứng dụng được viết trên Access 2003 nên mình chưa test trên các phiên bản cao hơn nên bạn chờ mình vài ngày để mình xem lại.

Vâng, bác xem lại rồi có gì chia sẻ cho anh em học hỏi,

Code sau đơn giản tùy chỉnh các kiểu cũng mở mọi loại File Ok ..xúc tích ngắn gọn dễ nhớ ...còn Mấy cái hàm API cả một rừng code nhớ được chết liền chỉ có nước Copy thôi 

(07-07-15, 01:37 PM)kieu manh Đã viết: Code sau đơn giản tùy chỉnh các kiểu cũng mở mọi loại File Ok ..xúc tích ngắn gọn dễ nhớ ...còn Mấy cái hàm API cả một rừng code nhớ được chết liền chỉ có nước Copy thôi 

Mã PHP:

Public Sub Open_ALLFile()
    Dim FileOpen As String
    FileOpen = "D:\Text.rar"
    With CreateObject("Shell.Application")
        .Open (FileOpen)
    End With
End Sub 


Đã Test đoạn code này, rất Ok. Ngắn gọn, xúc tích. Phù hợp với mọi địa hình..

Cảm ơn các bác nhiều lắm....

(07-07-15, 01:37 PM)kieu manh Đã viết: Code sau đơn giản tùy chỉnh các kiểu cũng mở mọi loại File Ok ..xúc tích ngắn gọn dễ nhớ ...còn Mấy cái hàm API cả một rừng code nhớ được chết liền chỉ có nước Copy thôi 

Mã PHP:

Public Sub Open_ALLFile()
    Dim FileOpen As String
    FileOpen = "D:\Text.rar"
    With CreateObject("Shell.Application")
        .Open (FileOpen)
    End With
End Sub 


Cái này là modul hả bạn. vậy vào code gọi nó uh.

Xin đóng góp 1 dòng mã lệnh để xem mọi loại tập tin
Application.FollowHyperlink <Filepath>
<Filepath>: đường dẫn đầy đủ+tên file cần xem
Ưu điểm của cách này là ngắn gọn dễ hiểu, không cần phải truy xuất sâu tới các hàm API của Windows

Code mở mọi loại file  trên, mình lấy code trên bỏ vào đâu hả bạn, Bạn hướng dẫn chi tiết cách làm được không ?Không có Demo hả bạn ?

(08-02-17, 04:36 PM)phuong.ayunpa Đã viết: Code mở mọi loại file  trên, mình lấy code trên bỏ vào đâu hả bạn, Bạn hướng dẫn chi tiết cách làm được không ?Không có Demo hả bạn ?

- Bạn copy đoạn code của bạn lmthu vào module nào đó sau đó gọi Sub này từ form bạn thiết kế.
Vd: Private Sub cmdOpenFile_Click()
            Open_ALLFile
      End Sub
- Bạn nên chú ý là đoạn code này chỉ là demo cách dùng lênh Shell.Application để mở file. Nếu bạn dùng trong thực tế thì phải xử lý cái đoạn khai báo biến chuỗi FileOpen để nó tùy chọn lấy được đường dẫn tới file cần mở. Để làm việc này thì bạn xem lại demo của bác maidinhdan - phần code cho nút lệnh "Chọn đường dẫn...".