This is my program.
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:
B4X:
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 Subedit:
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:
Last edited: