start programmer fra en txt fil liste? Link på højkant!

Hej..

Jeg er i gang med at lave et program, jeg mangler kun at lave en ting færdigt, men jeg sidder lidt fast.

Jeg har en form (frm1) hvor der er en ComboBox og en CommandButton på. Det skal foregå sådan, at når formen loader, skal den tage aller linjerne i en txt-fil (spil.txt) og ligge ind i ComboBoxen (combo1), og når man så trykker på Kør knappen (command1), så starter den spillet.

Jeg kan ikke helt finde ud af hvordan man gør, og hvor man skal gemme stien til disse spil hende, måske hver anden linje (uligenumre) skulle være spillets navn, og hveranden linje (lige numre) skulle være stien??

Hvis nogle kan lave en god guide til dette, kan i få jeres link enten op på min hjemmeside http://www.dero.dk eller på det program, som så bliver frigivet så snart så muligt..

Mvh
Anders Bilfeldt

Lige et par ting...

Her på Udvikleren er det normal pli at tilbyde UP (Udvikler Point) for hjælp og svar på spørgsmål.

Derudover ville jeg ikke - om du så betalte mig for det - have et link eller anden reklame offentliggjort via. http://www.dero.dk. Ikke alene er siden tydeligvis et plagiat af http://dkscripts.starthotel.dk og dermed i strid med dansk ophavsret, men sitet indeholder også andet copyrighted materiale af erotisk natur, som uden tvivl også er i strid med både med international ophavsret samt Freepaq's forretningsbetingelser for Web-Hosting.

Håber du vil tage det til dig og respektere andre folks ophavsret.

Sådan læser du en tekst fil, linje for linje og tilføjer linjerne til en combobox og åbner en selected sti fra en combobox.

*****************************************************
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private sub Form_load()

Dim Sti as string, Linje as string
Sti = app.path & "\\spil.txt" ' Vejen til din txt fil

Open sti for input as #1 ' Åbner txt filen
Do Until EOF(1)
Line Input #1, Linje

ComboBox1.additem Linje ' Tilføjer den læste Linje til Combo

Loop
Close #1

End Sub


Private sub Command1_click()

Dim Selected as string ' Den selected item i Combobox1
Selected = Combobox1.list(Combobox1.listindex)

ShellExecute frmMain.hWnd, "open", Selected, vbNullString, vbNullString, "5" 'åbner spillet

End sub
*****************************************************


Håber det hjalp =)

Mhv Simon - http://OmniCalc.starthotel.dk

Mange tak!!

Men hvor skal man indsætte stien til spillet??

Mvh
Anders