获取唯一的文件名

来源:ACCESS XP FAQ 点击数:7081 　 | 收藏 | 复制

时　间: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群 (群号:483923997) 　　　　　　Access源码网店
获取唯一的文件名【Access软件网】 http://accessoft.com/article-show.asp?id=151