Detta gäller VB6Katalog och filer till Meny
Hej jag vill kunna specificera en mapp och få den in en meny i mit program vid uppstart.
får det att funka men med lite problem.
alltså jag har en mapp på datorn som heter c:\Filer.
i mappen filer har jag fler undermappar med olika filer i.
Och jag vil att mapparna ska addas till i mitt program som under menyer.
Vilket fungerar.
Men filerna i mapparna läggs bara till i första sub menyn.
alltså om jag har två kataloger i katalogen filer som heter katalog1 och katalog två.
då får jag sub meny som heter katalog1 och katalog2.
men filer i katalog1 och två lägs alla till i undermeny katalog1.
kod jag använder ser typ ut såhär.
For z = 0 To Dir1.ListCount - 1
hm1 = Len(Dir1.Path)
Load menyarray (z + 1), filarray(5)hm2 = Len(Dir1.List(z))
hm = hm2 - hm - 1
hm2 = Right(Dir1.List(z), hm)
Load menyarray (z + 1)
MenyArray(z + 1).Visible = True
menyarray (z + 1).Caption = hm2
Next
för att ladda in katalogerna.
Se nhar jag en liknande loop för filerna ska addas.
Men hur gör jag för att dom ska addas till rätt katalog.
undermenyerna har samma namn med olika index och olika caption.
hur kan jag göra för att dom ska hamna under rätt meny.
Typ principen ska vara
Det ska se ut ungefär så här.
Dock ska det vara group01 group02 osv.
och filerna i dom olika mapparna ska läggas till i den undermapp som har samma namn som katalog.
http://img209.imageshack.us/img209/1336/menucq7.png