• Home
 · 
• Miscellaneous
 · 
• Random file extension generator, or any number of chars to that. Not very sufisticated, but there y

Random file extension generator, or any number of chars to that. Not very sufisticated, but there y

Random file extension generator, or any number of chars to that. Not very sufisticated, but there you go, it got me out of a hole. If it helps

API Declarations


Dim AA,BB,CC

' Under form load put randomize this will read the time and make the result
' random



Rate Random file extension generator, or any number of chars to that. Not very sufisticated, but there y

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   
   A = Int(Rnd * 61) + 1
   B = Int(Rnd * 61) + 1
   C = Int(Rnd * 61) + 1

If A = 0 Then
   A = A + Int(Rnd * 10)
   B = B + Int(Rnd * 10)
   C = C + Int(Rnd * 10)
End If
   
     AA = Mid("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", A, 1)
     BB = Mid("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", B, 1)
     CC = Mid("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", C, 1)

        NewFileExt = AA & BB & CC

End Function