• Home
 · 
• Files/File Controls/Input/Output
 · 
• Creates a completely random file name. (Use as a temporary filespec for ex.) Currently generates MS

Creates a completely random file name. (Use as a temporary filespec for ex.) Currently generates MS

Creates a completely random file name. (Use as a temporary filespec for ex.) Currently generates MS-DOS 8+3 style filenames using capital A-Z

API Declarations


'Purpose :- Create a random filename.
'Version :- 1.00.0000
'Object :- NameGen (Module)

Option Explicit



Rate Creates a completely random file name. (Use as a temporary filespec for ex.) Currently generates MS

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' Creates a completely random file name. (Use as a temporary filespec for ex.)
' Currently generates MS-DOS 8+3 style filenames using capital A-Z only. That
' should be enough for most applications when used with "*".
' **************************************************************************
' ** namegen([Extension]) : Returns a random filename.  **
' ** [Extension] : Allows you to specify an **
' **extension for the file. If  **
' **this is not specified .TMP  **
' **is used. Use * to randomize **
' **the extension.  **
' **************************************************************************
Public Function namegen(Optional Extension As Variant)
 Dim i As Integer, filespec As String, c As Integer, ch As String'Declare Variables.
 Dim upperbound As Integer, lowerbound As Integer
 Randomize 'Init rnd.
 upperbound = 90 'Set char limits.
 lowerbound = 65
 
 If IsMissing(Extension) Then  'Do we add .TMP?
  Extension = ".TMP"'Add ".TMP".
 Else
  If Extension = "*" Then'Randomize ext.
Extension = ""'Remove *.
For i = 1 To 3
 c = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 'Pick random ASCII.
 ch = Chr(c)  'Convert to char.
 Extension = Extension & ch  'Append to Extension.
Next
  End If
  Extension = "." & Extension'Add the "." to start.
 End If

 For i = 1 To 8 'Create 8 char f/n.
  c = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)'Pick random ASCII.
  ch = Chr(c) 'Convert to char.
  filespec = filespec & ch'Append to f/n.
 Next
 filespec = filespec & Extension'Add extension.
 namegen = filespec 'Return filename.
End Function