Åbne vilkårlige HTML filer

Der skal selvfølgelig kun åbnes en fil.

Har fundet ud af det med denne kode her:

Private Sub Form_Load()
Dim result As Integer
'PathAndFilename = "c:\dokumenter\kontoopr.doc"
Dim MyValue As Integer
Dim Filnavn As String
Dim Katalog As String

Randomize  ' Initialize random-number generator.
MyValue = CInt(Int((18 * Rnd()) + 1)) ' Generate random value between 1 and 6.
Filnavn = MyValue
Filnavn = Filnavn + ".htm"

Katalog = "\\vegapdc\office97\Godmorgen_filer\"
Filnavn = Katalog + Filnavn
result = ShellExecute(0, "Open", Filnavn, "", "\\vega\office97", SW_SHOW)
End
End Sub