Åben bestemt file med bestemt program på cd [VB6]

Drev = myapp.drive (hvis dit program også ligger på cd'en)

Du kan sikkert bare køre filen ved en shell

Dim MyStr as String
MyStr = app.drive & " minplayer.exe test.avi"
Shell Mystr

Skrevet ud fra hukommelsen, har ikke VB6 installeret. Måske skal du tilføje en \ mellem app.drive og minplayer.exe. Kan ikke huske det. Men det er jo løst sådan her:



Public Function AppPath() As String
    Dim sAns As String
    sAns = App.Path
    If Right(App.Path, 1) <> "\" Then sAns = sAns & "\"
    AppPath = sAns
End Function
Dim MyStr as String
MyStr = appPath() & "minplayer.exe test.avi"
Shell Mystr

Hej
Mange tak.

Mvh/Henrik C