Random generator for file 1

[rds747]

What is the best way to create a random number for a file? For example, I would like the file name to be "C:\Test42356.tif". The file is a temp file which will be later deleted from the drive.

From MSDN I could try this:

MyValue = Int((100000 * Rnd) + 1)
' Generate random number between 1 and 100001.

Just wanted your advice.

Thanks!

 

[guitarzan]

Use GetTempName (FileSystemObject).

From MSDN:

GetTempName Method 

Returns a randomly generated temporary file or folder name that is useful for performing operations that require a temporary file or folder.

   object.GetTempName ( ) 

The optional object is always the name of a FileSystemObject. 

The GetTempName method does not create a file. It provides only a temporary file name that can be used with CreateTextFile to create a file.

The following example illustrates the use of the GetTempName method.


Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Set tempfile = CreateTempFile
tempfile.WriteLine "Hello World"
tempfile.Close

Function CreateTempFile 
   Dim tfolder, tname, tfile

   Const TemporaryFolder = 2
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   tname = fso.GetTempName    
   Set tfile = tfolder.CreateTextFile(tname)
   Set CreateTempFile = tfile

End Function

 

[vladk]

Or you could use the current date/time stamp:

Dim dtmNow As Date

dtmNow = Now
MsgBox Year(dtmNow) & Month(dtmNow) & Day(dtmNow) & Hour(dtmNow) & Minute(dtmNow) & Second(dtmNow)

 

[rds747]

Thanks for the help.