一种办法就是检测the moviepath
你看看moviepat返回的字符串 因为你的movie在光驱里
可以得到光驱盘符的
也可以用插件

怎样得到光驱的盘符?
Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
'GetLogicalDriveStrings-->获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6

Private Sub Command1_Click()
Dim rtn As String
Dim AllDrives As String
Dim JustOneDrive As String
AllDrives = Space$(64) '设置缓冲
rtn = GetLogicalDriveStrings(Len(AllDrives), AllDrives) '调用函数得到包含所有驱动器的字符串
AllDrives = Left(AllDrives, rtn)
Do
rtn = InStr(AllDrives, Chr(0))
If rtn Then '若有的话
JustOneDrive = Left(AllDrives, rtn)
AllDrives = Mid(AllDrives, rtn + 1, Len(AllDrives))
rtn = GetDriveType(JustOneDrive) '检查驱动器类型
If rtn = DRIVE_CDROM Then '是CD-ROM
Label1.Caption = Left(UCase(JustOneDrive), 2) '给label1
Exit Do
End If
End If
Loop Until AllDrives = "" Or rtn = DRIVE_CDROM
Command1.Enabled = False
If Label1.Caption = "" Then
Label1.Caption = "没有发现光驱!"
End If
End Sub

大哥们 我要放上去就能用的~~~~~：（ 求求了

------------------bitCDR xtra---------------------------------------
This is a free software,
written by shikuangming,
supported by www.aougu.com

-----------------------------------------------------------------------------

Has two global functions(all have no return values):
* bitCDOpen string sDrive -- Open any specail CD Drive or all CD Drives
* bitCDClose string sDrive -- Close any specail CD Drive or all CD Drives

For example:
bitCDOpen "f:"----open the cd drive "f"
bitCDOpen "f"-----open the cd drive "f"
bitCDOpen ""------open all cd drives

bitCDClose "f:"----Close the cd drive "f"
bitCDClose "f"-----Close the cd drive "f"
bitCDClose ""------Close all cd drives

and you can see,they are very easy to use.
Good luck!

----------------------------IMPORTANT-------------------------------------
* THIS XTRA IS PROVIDED "AS IS", WITHOUT
* WARRANTY OF ANY KIND, AND THE AUTHOR DISCLAIMS ALL IMPLIED WARRANTIES
* INCLUDING, BUT NOT LIMITED TO, MERCHANTABILITY, FITNESS FOR A PARTICULAR
* PURPOSE AND NONINFRINGEMENT. IN NO EVENT WILL THE AUTHOR BE LIABLE TO YOU
* FOR ANY CONSEQUENTIAL, INDIRECT OR INCIDENTAL DAMAGES ARISING OUT OF YOUR
* USE OR INABILITY TO USE THIS XTRA.

救命呀~~！！！！！

用不着这么麻烦！

使用open命令即可
on mouseup me
open("explorer "&the moviepath)
end

上面代码的意思是用资源管理器打开影片所在的位置，如果影片是在光盘的根目录下就是浏览光盘的效果了！