shell syntax not right ?

[dennishea]

This is my program.

Sub Globals
   'Declare the global variables here.
   Dim arraylist1   
   Dim words(0)   
End Sub

Sub App_Start
   Form1.Show   
   FileSearch(arraylist1 ,"\cf card\video\")
   For i = 1 To arraylist1.Count -1   
      listbox1.Add(arraylist1.Item(i))
   Next i
End Sub


Sub ListBox1_SelectionChanged (Index, Value)
      Shell("wmplayer.exe",Chr(34) & value & Chr(34))
      [COLOR="Red"]Shell("wmplayer.exe","value")[/COLOR]
End Sub

edit:

I changed the program so that it works now with help from badkarma. The line in red is what I did wrong. This program is for my father in law who is 75 and has a great grandbaby about a 14 hr drive from here. The daughter posts 5 minute videos and I load them on an old pda that I have with an 8gb card. With this program locked in the start menu he can't get lost.


Denny :sign0148:

 

[dennishea]

@badkarma

I used your example just like it was and changed value so that it had the whole path and not just the name of the program and it works fine. Thank you.


Denny