文件提取器程序，文件提取器将所选文件名存到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