Hallo

Ich möchte eine oberfläche für emulatoren schreiben mit vb
wo rechts die spiele aufgelistet wird und links das passende cover

Zitat

Dim myMenu As String
Dim myCover As String
Dim myPfad As String
Dim myPfad_emu As String
Dim myPfad_roms As String

Private Sub Command1_Click()
GENS = myPfad_emu & " " & myPfad_roms & myMenu & ".zip"
Call Shell(GENS, 1)
End Sub

Private Sub List_Games_Click()
myMenu = List_Games
Label_titel = myMenu
Game_Cover.Picture = LoadPicture(myPfad & myMenu & ".jpg")
End Sub

Private Sub Form_Load()
myPfad = "E:\-- ] Media Portal\Sega\covers\Sega Mega Drive - 176x220\"
myPfad_emu = "E:\-- ] Media Portal\Sega\Emulatoren\GENS v2.11\gens.exe"
myPfad_roms = "E:\-- ] Media Portal\Sega\Games\Sega Mega Drive\games smd\"
End Sub

ein problem ist das ich jedes einzelne spiel oder rom per hand eintragen muss ins listbox
kann man da vieleicht auch eine datenbank reinladen ? und wie erstelle ich so ne datenbank ??

fangen wir mal von vorne mal an
ich benutze vb6

in mein emulator verzeichnis ist ein ordner mit namesn "SMD Games"
in diesen ordner befindet sich c.a. 900 zipdateien z.b. "Mega Turrican (Eng).zip"

als erstets muss ich irgendwie alle zip dateien in eine text datei reinschreiben. Dann hab ich alle zip dateien in der text datei und muss dann irgendwie umwandel als datenbank um später die in VB reinzuladen

danke

den ersten teil hat 100% geklapt

ich habe jetzt filelistbox eingefügt und bei

Private Sub Form_Load()
myPfad_roms = "E:\-- ] Media Portal\Sega\Games\Sega Mega Drive\games smd\"
File1 = myPfad_roms
End Sub

jetzt zeigt er mir alles an genau das was ich wolte

aber jetzt hab ich da eine endung drinne und habe jetzt probleme mit mein covers

bekommt man die auch weg ?

Nachtrg:

ich habe mein problem jetzt anderst gelöst
zuerst den dir "*.zip /b > alle.txt" befehl
dann in word ueber suche und ersetzen (von .zip in nix)
und den ganzen text kopiert und in der listbox eingefügt

mein nächstet problem ist das ich nicht zu jeden spiel ein cover habe und dadurch bekomme ich ein fehler
ich glaube ich muss das mit if und then irgendwie machen oder ?
wie ging das nochmal ??