Individuare la cartella principale dei file sorgenti di Gambas contenente la sub-cartella di un file immagine

In via generale il nome della cartella principale, contenente le altre sub-cartelle contenenti a loro volta altre sub-cartelle dei file sorgenti di Gambas, è "gambasdevel".
Tale nome però può essere anche cambiato in prima fase di installazione dei sorgenti di Gambas.

Per individuare quindi con certezza - ad esempio - un file immagine (da mostrare magari in una PictureBox), presente in una sub-cartella dei sorgenti di Gambas, è necessario sapere con eguale certezza il nome della cartella principale dei sorgenti di Gambas.

Potremo procedere come segue:

Private Const PERCORSOFILE As String = "comp/src/gb.form.stock/gambas/128/music.png"


Public Sub Form_Open()

 Dim s As String
 Dim b As Byte

 Repeat
' Individuiamo ogni cartella, anche nascosta, presente in "User.Home":
   s = Dir(User.Home, "*", gb.Directory)[b]
' Se della cartella sotto analisi esiste una sub-cartella chiamata "comp", allora significa che è stata individuata la cartella principale dei sorgenti di Gambas.
' Il nome della cartella principale dei sorgenti di Gambas è contenuto nella variabile di tipo String "s".
   If Exist(User.Home &/ s &/ "/comp") Then 
     With PictureBox1
' Carica il file immagine prescelto, presente in una sub-cartella dei sorgenti di Gambas:
       .Image = Image.Load(User.Home &/ s &/ PERCORSOFILE)
       .Resize(.Image.W, .Image.H)
     End With
   Endif
   Inc b
 Until b == Dir(User.Home, "*", gb.Directory).Max

End