Search Tools Links Login

Generate Filename or SessionID

Posted: 2002-06-01
By: ArchiveBot
Viewed: 63

Filed Under:


No attachments for this post

Generate Filename with Randomstring, Date and time.

Original Author: Hohl David


function generateFileName()
dim counter
Dim TempLongID
For Counter = 1 to 10
Randomize Timer / RND
TempLongID = TempLongID & Chr((ASC("z") - ASC("a")) * RND + ASC("a"))
dim temp
dim datetime
datetime = now()

temp = day(datetime) & month(datetime) & year(datetime) & hour(datetime) & minute(datetime) & second(datetime)
generateFileName = temp & TempLongID
end function

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.