以下是生成随机文件名的函数,这里的文件名暂且只包含数字,文件名不区分大小写,最大文件名长度为8,如果要缩短的话只需把函数中的8换成你想要的最大长度就可以了.
Function CreateFileName() As String
Dim Length As Integer '文件名长度,不带扩展名
Dim FileName As String
Dim i As Integer
Dim aStr As String
Randomize
Length = Int(8 * Rnd() + 1) '生成文件名长度,最长为8位
For i = 1 To Length
aStr = Chr(25 * Rnd() + 97) '生成随机字符
FileName = FileName & aStr
Next i
CreateFileName = FileName & ".txt"
End Function
以下是十组运行结果:
xiinhg.txt
inqoohfq.txt
eu.txt
pvw.txt
gjhf.txt
r.txt
c.txt
ycg.txt
ydqr.txt
mtxhtf.txt
[此贴子已经被作者于2007-10-18 1:35:38编辑过]