UC知道关于WORD，VB，ACCESS
来源：百度知道 编辑：UC知道 时间：2024/06/19 13:51:42
在VB中调用已经存在的WORD文档，如果这些WORD文档固定不变就没有什么问题，关键现在的要求是WORD文档是变化的，到时间的要删除没有用的WORD文档，有新的WORD文档要及时的增加进来，这个我想了很常时间都没解决，能利用ACCESS数据库的索引来控制WORD文档吗，再利用VB来控制ACCESS数据库，但是好象ACCESS数据库的索引不能来控制WORD文档！
把word文件过在已知目录中,再用dir函数查看所有Word文件,用数组记录.
下面是代码
Dim WordFiles() As String '设置为模块变量.
Private Function GetWordFile(path As String) As Integer
Dim FileName As String, i As Integer
i = 0
FileName = Dir(path & "\*.doc")
Do While FileName <> ""
i = i + 1
ReDim Preserve WordFiles(i)
WordFiles(i - 1) = FileName
FileName = Dir()
Loop
GetWordFile = i '返回文件总数
End Function
Private Sub Command1_Click()
'调用测试 文件有删除或增加再调用一次,数组会更新的
Print "Word文件总数为" & GetWordFile("F:\Documents\Word") & "个,分别如下: "
Dim i As Integer
For i = 0 To UBound(WordFiles)
Print WordFiles(i)
Next
End Sub