Differenze tra le versioni di "Individuare la cartella principale dei file sorgenti di Gambas contenente la sub-cartella di un file immagine"

Versione delle 10:22, 14 dic 2023

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 con certezza - ad esempio - un file immagine (da mostrare magari in una PictureBox), presente in una sub-cartella dei sorgenti di Gambas, è necessario sapere il nome della cartella principale dei sorgenti di Gambas.

Potremo procedere come segue:

Private Const PERCORSOIMMAGINE 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 il nome della prima sub-cartella della cartella analizzata è "comp", allora significa che è stata individuata la cartella principale dei sorgenti di Gambas:
   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 &/ PERCORSOIMMAGINE)
       .Resize(.Image.W, .Image.H)
     End With
   Endif
   Inc b
 Until b == Dir(User.Home, "*", gb.Directory).Max

End