获取唯一的文件名 -朱亦文
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


获取唯一的文件名

发表时间:2004/11/10 评论(1) 浏览(7054)  评论 | 加入收藏 | 复制
   
摘 要:我每天都要从数据库中导出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群(群号:198465573)
 
 相关文章
如何查看我的推广效果  【竹笛  2004/11/10】
如何保持代码的唯一性?  【贺德才  2007/10/19】
[示例]函数获得PDF文件名称  【钱玉炜  2009/6/6】
通过文件名获取完整路径方法二则  【江羽  2010/6/10】
[access查询]取唯一最小记录  【风行  2011/11/4】
【Access入门】查询无重复,查询唯一值的示例  【麥田  2013/3/8】
获取全球唯一识别码GUID示例  【杜超-2号  2013/10/3】
常见问答
技术分类
相关资源
文章搜索
关于作者

朱亦文

文章分类

文章存档

友情链接