Opening a random file in a directory VBScript

I have a folder with a bunch of memes in it, %AppData%\Memes And I have a file, meme.vbs in my startup folder.

How would I make meme.vbs open a random meme every set amount of minutes?