Bongour
Voila j'ai un tit soucis avec une mini appli que je developpe pour un pote.
Cette appli est un prog tout bete, qui automatise le lancement de windows media player avec un paramètre quand on doucle click sur un fichier auquels on a associé le programme.
En gros, l'appli va lire un fichier "execdvd.ini" pour trouver le chemin du lecteur à utiliser. il va ensuite lire le fichier "param.ini" pour voir les paramètre a utiliser. Le programme genere alors une ligne toute bete de type "C:\program files\windows media\wmplayer.exe cmonstro_S4R.mpeg /fullscreen".
Mon problème est que dans mon appli, ben sa marche pas ^^ auriez vous une idée du pourquoi ? Je vous joint ici le code source.
Le fichier execdvd.ini ne comporte qu'un ligne : "c:\program files\windows media\wmplayer.exe" (avec les cotes et sans retour ligne), et le fichier param.ini comporte une seule ligne : "/fullscreen" (sans cote ni retour ligne).
Voici le dit code :
Citation :
Private Sub Form_Load()
Dim Path As String ' chemin du repertoire ou ce trouve le prog et le ini
Dim args As String ' nom du fichier à lire
Dim Options As String ' Tableau
Dim chemin As String ' path+exec.ini
Dim prog As String 'chaine complete à lancer (chemin du lecteur + options + fichier a lire
Dim param As String ' chaine de paramètre dans le deuxieme fichier ini
' recupérer l'argument passer en paramètre
args = Command()
' utiliser split si tu veux découper ce qu on passe en paramètre dans un tableau si tu veux l analyser après
'Partie déclarative pour la lecture du fichier .ini
Path = App.Path
If Right(Path, 1) <> "\" Then Path = Path & "\" ' recupération du chemin ou se trouve le tit prog pour chopper le fichier ini
chemin = Path & "execdvd.ini" 'Ouverture du fichier
Open chemin For Input As #1 ' Lecture tant qu'on n'arrive pas à la fin du fichier
While Not EOF(1)
Line Input #1, Options
Wend
Close #1 ' Fermeture du fichier
' partie declarative pour la lecture du deuxieme .ini
Path = App.Path
If Right(Path, 1) <> "\" Then Path = Path & "\" ' recupération du chemin ou se trouve le tit prog pour chopper le fichier ini
chemin = Path & "param.ini" 'Ouverture du fichier param.ini
Open chemin For Input As #1 ' Lecture tant qu'on n'arrive pas à la fin du fichier
While Not EOF(1)
Line Input #1, param
Wend
Close #2 ' Fermeture du fichier param
' execution de la commande finale
prog = Options & " " & args & " " & param
' MsgBox (prog)
Shell prog
Kill Options
End Sub
|
Message édité par karchiboy le 25-04-2005 à 14:50:15