(答): 将下列代码粘贴到一个新的模块中,使用函数fUniqueFile来产生连续、唯一的文件名。该函数在给出唯一的文件名前将会检查目录中的每个文件的实例。
'***************** Code Start *************** '作者: Dev Ashish. Function fUniqueFile(strDir As String, intMaxFiles As Integer, _ Dim strtmpFile As String On Error GoTo funiqueFile_Error ' 否则比较下一个区配文件
PadLength = MyPaddedLength - Len(Myvalue) |
翻译: 朱亦文
来 源 于:MVPS: The access Web