Bonjour,
J'ai un "léger" soucis pour ouvrir une vidéo dans VLC
Voila le code que j'utilise, il me permet de detecter le logiciel servant par défaut à ouvrir le fichier vidéo (dans mon cas VLC) et lance le fichier en question
fich vaut
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _ (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Private Sub CommandButton1_Click() Dim buff As String Dim fich As String Dim appli As String fich = ActivePresentation.Path & "\test.flv" buff = Space(150) FindExecutable fich, vbNullString, buff appli = Left(buff, InStr(buff, Chr(0)) - 1) Shell (appli & " " & fich) End Sub
"C:\Documents and Settings\Moi\Bureau\test.flv"
appli
"C:\Program Files\VideoLAN\VLC\vlc.exe"
Le problème est que visiblement VLC n'arrive pas a ouvrir la vidéo s'il y a des espaces dans le chemin d'accès à la vidéo
si je place le tout dans
c:\test
Ca passe nickel
Partager