I need help with making a code that opens a random file in a directory...
The files will be called:
Could someone please reply?
You will need to use directory info.
Here is an example.
Private Sub GetRandFile(sender As Object, e As EventArgs) Try Dim tmpdir As String = My.Computer.FileSystem.SpecialDirectories.Desktop Dim tmpar() As String If Directory.Exists(tmpdir) = True Then Dim di As New IO.DirectoryInfo(tmpdir) Dim diar1 As IO.FileInfo() = di.GetFiles() Dim dra As IO.FileInfo For Each dra In diar1 tmpar = dra.FullName.Split(".") If tmpar(1) = ".txt" Then Process.Start(dra.FullName) End If Next End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub
This can just be assigned as an event handler for a button or any control of your chosing.