多媒体播放器Dim lujin As String Private Sub dakai_Click() lujin = ForFolder(hWnd, "请选择歌曲目录") If lujin "" Then If Right(lujin, 1) "\" Then lujin = lujin + "\" File1.Pattern = "*.mp3;*.wav;*.mid;*.mp4;*.CD;*.MIDI;*.rm;*.asx;*.dat;*.asf" File1.Path = lujin

文件提取器程序，文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount 'On Error Resume Next '创建word应用程序，这一句话打开word2000 Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate