Elenco file directory

[cipiupiu]

ok anche questo fatto

[cipiupiu]

adesso devo applicarla al mio sistema, quindi devo creare i bottoni dinamicamente a partire dai 10 delle directory e poi i 30 delle immagini

[optime]

abbina quindi la creazione alla lettura del file system. i 10 bottoni principali sono fissi?

[cipiupiu]

abbina quindi la creazione alla lettura del file system. i 10 bottoni principali sono fissi?

sono fissi come numero ma il nome dei 10 pulsanti varia in base al nome delle 10 cartelle

[optime]

sai leggere le dieci cartelle?

[cipiupiu]

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
Dim x = 12
Dim y = 12
Dim a = 0
ForEach Dir AsStringInDirectory.GetDirectories("C:\simbolico")
If (a < 10) Then
Dim Dir2 = (Dir.Remove(0, 13))
Dim myBottone AsNewButton
                myBottone.Text = (Dir2)
                myBottone.Location = New System.Drawing.Point(x, y)
                myBottone.Name = (Dir2)
                myBottone.Width = (50)
                myBottone.Height = (50)
                myBottone.Tag = (30)
Me.Controls.Add(myBottone)
AddHandler myBottone.Click, AddressOf onClick_myBottone
                y = y + 30
                a = a + 1
EndIf
Next
EndSub

[cipiupiu]

Così creo i 30 pulsanti utilizzando il tag.

PrivateSub onClick_myBottone(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CreateButtons(sender.Tag)
EndSub

[cipiupiu]

manca di riempire i 30 pulsanti con le 30 icone contenute nelle cartelle delle 10 categorie. Le 30 devono avere come img il file img e come text il nome del file

[optime]

l'elenco dei file all'interno di una determinata cartella lo sai leggere?

[cipiupiu]

Dim objFSO AsObject
Dim objFolder AsObject
Dim objFile AsObject

            objFSO = CreateObject("Scripting.FileSystemObject")
            objFolder = objFSO.GetFolder("C:\simbolico\" + sender.Name)
ForEach objFile In
objFolder.Files

'qui ci andrebbe la modifica di .text e .backroungimage dei pulsanti


Next objFile