时 间:2004-11-10 00:00:00
作 者:Dev Ashish ID:61 城市:岳阳
摘 要:我每天都要从数据库中导出50个文件,这些文件要一个固定的文件名,例如:tmp00010.Dat, tmp00011.Dat ... 等等。我知道如何在代码通过循环产生这些要导出的文件。但我不知道在一个目录中为每个文件生成唯一的文件名。
本文将给出一个配合DIR的做法。
正 文:
(问): 我每天都要从数据库中导出50个文件,这些文件要一个固定的文件名,例如:tmp00010.Dat, tmp00011.Dat ... 等等。我知道如何在代码通过循环产生这些要导出的文件。但我不知道在一个目录中为每个文件生成连续、唯一的文件名。
(答): 将下列代码粘贴到一个新的模块中,使用函数fUniqueFile来产生连续、唯一的文件名。该函数在给出唯一的文件名前将会检查目录中的每个文件的实例。
'***************** Code Start ***************
'作者: Dev Ashish.
Function fUniqueFile(strDir As String, intMaxFiles As Integer, _
strPadChar As String, strFileInitName As _
String, Optional strFileExt) As String
'================================================================
' 函数返回一个连续、唯一的文件名
' 函数参数说明:
' strDir: 文件所在的目录位置
' intMaxFiles: 返回的最大文件数
' strPadChar: 文件格式串
' strFileInitName: 文件前缀,通常为3个字符
' (Optional) strFileExt: 扩展文件名(可选参数) = File extension to use
' 调用例子:
' msgbox "Free File Name is " & _
' fUniqueFile("C:\DataFiles", 500, "00000", "dat")
' 注: 没有提供文件扩展名
' 使用文件扩展名
' fUniqueFile("C:\DataFiles", 500, "00000", "da", "out")
'===============================================================
Dim strtmpFile As String
Dim strTmp As Variant
Dim i As Integer
Dim boolNextI As Boolean
On Error GoTo funiqueFile_Error
For i = 1 To intMaxFiles
boolNextI = False
' 如果不是未给文件扩展文件名
If Not IsMissing(strFileExt) Then
strTmp = Dir(strDir & "\*." & strFileExt)
' 第一个文件的文件名
&nbs
Access软件网官方交流QQ群 (群号:54525238)
Access源码网店
|