>>ALLTRIM(TRANSFORM(INT(RAND()*10000000000000000000),'99999999999999999999')) >>>
> ' Return a random file name > ' expC1 Start of the file name > Private Function GenerateFileName(ByVal tcStart As String) As String > Dim lnInteger As Integer > Dim loRandom As New Random > lnInteger = loRandom.NextDouble() * 1000000000 > Return tcStart + lnInteger.ToString().PadLeft(30, "0") > End Function >>