Lấy thông tin file .avi, mpg, m2p ?

Tôi muốn viết 1 chương trình bằng VB6 chương trình khi người dùng click vào 1 thư mục nào đó có chứa các file có phần đuôi là . avi , mpg, m2p thì chương trình sẽ cho biết thời lượng của từng file và tổng thời lượng liền ( Cách của tôi làm là dùng components Windows Media Player cho từng file rồi sau đó cho vào biến trung gian cách làm này đối với thư mục có rất nhiều file thì chương trình chạy hơi lâu vì nó mở file và đó file liên tục xin chỉ giúp ?