怎么让系统给自动生成名字 - 编程论坛

#2

madpbpl2007-12-10 19:49

magazine_file = FileObj.FileName("magazine_file")
在这后面加上一句
magazine_file="year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"magazine_file
试试

#3

yms1232007-12-10 19:52

Function getRanDom(max , min)
    Dim times, i, j
    times = 2
    Dim ttNumber
    ttNumber = max + min - 1
    Dim tAry()
    ReDim tAry(ttNumber)
    For i = 0 To ttNumber
        tAry(i) = min + i
    Next
    For j = 0 To times - 1
         i = ttNumber - 1
         While i > 0
            Dim temp, randomNum
            temp = 0
            randomNum = CInt(TtGetRandom(0, max * 3, i) Mod i)
            temp = tAry(i)
            tAry(i) = tAry(randomNum)
            tAry(randomNum) = temp
            i = i - 1
        Wend
    Next
    getRanDom = tAry
End Function
Function TtGetRandom(max, min, chaosSeed)
    Randomize chaosSeed * Timer()
    TtGetRandom = Rnd * chaosSeed
End Function
也可以使用随机数作文件名，本人自己写的生成一定范围内无重复的随机数代码
主要调用
getRanDom(max , min)
这个函数
参数:max生成的随机数最大位数
min:最小位数
调用方法
Dim RNum
RNum=getRanDom(10,1)
生成10位随机数

#4

taoxinhui2007-12-12 00:22

谢谢楼主，谢谢一楼的。我最后采用了1楼的方法，他有个问题magazine_file="year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"magazine_file应该这样写magazine_file=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)。这样名字就改了。为什么要改名字，主要是后台下附件的时候好下载。楼主的。我复制了慢慢参考。

#5

madpbpl2007-12-12 00:46

我只是打了个比方，具体根据楼主的条件来调整，感觉自己在上传方面也有不足之处，也需要加强。