Ciao a tutti.
Da anni utilizzo un paio di db Videoteca, dove ho varie maschere, sia continue che singole, dov'è presente un campo "percorso e nome"
Ho poi un pulsante con seguente comando "Apri VLC e aggiungi a scaletta", che ha sempre funzionato perfettamente, aggiungendomi in playlist i vari record selezionati:
Private Sub OpenVLC_Click()
Dim Ritorno As Long
Dim currentURL As String
If IsNull(Me.Form("Percorso e nome")) Then
MsgBox ("Percorso film assente !")
Exit Sub
Else
currentURL = Replace(Me.Form("Percorso e nome"), "#", "")
End If
Dim strProgramName As String
Dim strArgument As String
Dim strMovie As String
strProgramName = "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe" & " "
strArgument = "--playlist-enqueue"
strMovie = currentURL
If Dir(currentURL) <> "" Then
Call Shell(strProgramName & " " & strArgument & " " & Chr(34) & currentURL & Chr(34), vbNormalFocus)
Else
MsgBox ("file non trovato !")
End If
End Sub
Ho appena formattato il PC e installato Windows a 64bit
Vlc installato su program files (non più su (x86)) e modificata opportunamente la strProgramName = "C:\Program Files\.....
Il problema è che la strArgument, che avrebbe dovuto semplicemente aggiungermi altri record "percorsi" alla scaletta, ora non funziona più: ogni nuovo record che lancio non si aggiunge più in scaletta, ma mi riapre il Lettore multimediale in una nuova finestra.
Che devo fare?
Grazie