用VB实现多文档打印

应我公司文管中心的要求，我制作了一个多文档打印程序，方便了文秘人员，现介绍如下：

运行vb，新建一个应用程序工程，在Form中添加一个DriveListBox 控件、DirListBox 控件和FileListBox 控件，分别取名为：Drive1、Dir1和File1。设置File1的Pattern 属性为*.doc，设置FileListBox 控件中显示的文件名为DOC文档。

在Form_Load()事件中添加一行代码：Drive1.Drive = "c:"，用来设置运行时所选择的驱动器。

在Drive1_Change()事件中添加一行代码：Dir1.Path = Drive1.Drive，这样当驱动器改变时，使目录路径随之改变。

同样在Dir1_Change()事件中添加一行代码：File1.Path = Dir1.Path，当目录改变时，使文件列表同时改变。

因为一般来说，文档都会保存在统一的目录下，所以没有使用CommonDialog 控件进行文件名选择，使操作更为简单方便。

在Form中添加一个CommandButton 控件取名为Print，用来进行打印操作。

在Command1_Click()中添加如下代码：

Dim i As Integer
Dim strfile As String
Dim word As Object

Set word = CreateObject("word.Basic")

word.appshow

For i = 0 To File1.ListCount - 1

If Right(Dir1.Path, 1) <> "" Then

    strfile = Dir1.Path + "" + File1.List(i)

Else

    strfile = Dir1.Path + File1.List(i)

End If

word.fileopen strfile

word.fileprint

word.fileclose

Next

word.appclose

Set word = Nothing