建Drive1,dir1,file1,list1,list2。代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Function 播放(文件路径 As String)'写你的播放代码End FunctionPrivate Sub Dir1_Change()File1。
Path = Dir1。PathEnd SubPrivate Sub Drive1_Change()Dir1。Path = Drive1。DriveEnd SubPrivate Sub File1_Click()List1。AddItem File1。
FileNameList2。AddItem IIf(Len(File1。Path) > 3, File1。Path & "\", File1。Path) & File1。FileNameEnd SubPrivate Sub Form_Load()List2。
Visible = FalseEnd SubPrivate Sub List1_Click()播放 List2。List(List1。ListIndex)End Sub。
答：添加reference，microsoft scripting runtime dim fso as new filesystemobject dim ofil...详情>>
答：它在电缆电视的基础上，将分配网络的主干部分改为光缆，在各个服务节点处完成光电转换，再由同轴电缆将传输信号送到用户家里，可有效地实现Internet访问、电视点播...详情>>
答：用代IP的QQ就可以看详情>>
