Individuare la cartella principale dei file sorgenti di Gambas contenente la sub-cartella di un file immagine
Da Gambas-it.org - Wikipedia.
Versione del 14 dic 2023 alle 10:21 di Vuott (Discussione | contributi)
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". BR>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 ss As String[] = ["Documenti"] 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