Randomly Assigning a File

[brian]

Hello,

Can someone tell me how I can randomly assign a file to a
variable from a directory.

Example:
Dim File as string

I need to search through 'C:/Comics/' and have the
program randomly pick a file from that path and assign it
to the variable 'File'

I will use this info to string together an image source
to randomly chage a picture. I am not interested in
using the ad rotator for this purpose.

Thanks.

[Herfried K. Wagner [MVP]]

Hello,

"brian" <br****@lbrspec.com> schrieb:

Can someone tell me how I can randomly assign a file to a
variable from a directory.

Example:
Dim File as string

I need to search through 'C:/Comics/' and have the
program randomly pick a file from that path and assign it
to the variable 'File'

I will use this info to string together an image source
to randomly chage a picture. I am not interested in
using the ad rotator for this purpose.

Untested:

\\\
Imports System.IO
..
..
..
Dim oRand As New Random(Environment.TickCount)
Dim files() As String = Directory.GetFiles("C:\")
Dim i As Integer = oRand.Next(0, files.Length - 1)
MsgBox(files(i))
///

HTH,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet

[brian]

Thanks for the reply Tom.

Can you please explain something to me. What does
'Dim intNumber As Integer = CInt(rFile.NextDouble() *
(strFiles.Length -1))' Do?

I notice you assign this to an integer and the integer is
returned. How do you then tell the image source what
file name to use since you are not looking for a file
name but instead an integer?

-----Original Message-----
Hi, try this:

Imports System.IO
..
..
..
Public Function GetRandomFile(ByVal strDirectory As String) As String Dim strFiles() As String = Directory.GetFiles (strDirectory) Dim rFile As New Random
Dim intNumber As Integer = CInt(rFile.NextDouble() * (strFiles.Length -1))

Return strFiles(intNumber)

End Function

--
Happy to help,
-- Tom Spink
(th**********@ntlworld.com)

"Go down with your server"

http://dotnetx.betasafe.com >> On The Mend

Please respond to the newsgroup,
so all can benefit
"brian" <br****@lbrspec.com> wrote in message
news:03****************************@phx.gbl...

Hello,

Can someone tell me how I can randomly assign a file to a variable from a directory.

Example:
Dim File as string

I need to search through 'C:/Comics/' and have the
program randomly pick a file from that path and assign it to the variable 'File'

I will use this info to string together an image source
to randomly chage a picture. I am not interested in
using the ad rotator for this purpose.

Thanks.

.

[Chris Dunaway]

"Tom Spink" <th**********@ntlworld.com> wrote in
news:ew*************@TK2MSFTNGP09.phx.gbl:

Dim intNumber As Integer = CInt(rFile.NextDouble() *
(strFiles.Length -
1))

The line above seems a little inefficient. You get a double from the
random generator and then convert it to an integer. Why not just get the
integer directly using the Next function?

Dim intNumber As Integer = rFile.Next(0,strFiles.Length)

Just curious about the choice you made.

Chris