FileListBox, TextBox e modifica estensione a nomi di file

[Robyn69]

ciao a tutti

ho creato un collegamento tra una filelistbox e una textbox
ossia
quando seleziono un file nella list
esso mi viene riportato nella textbox e da qui poi lo eseguo con lo shell
fin qui funziona tutto a meraviglia. però
vorrei se fosse possibile
fare una modifica.
premessa
la list contiene le seguenti estensioni di file ovvero( gif,rar,exe,zip)
la modifica e questa:
potrei selezionare un file pippo.gif in modo da visualizzarlo sulla image
e trasportare nella textbox il file pippo.exe
considerando che nella list ci sono sempre due nomi di file
uno con estensione gif e l'altro con lo stesso nome in exe
es
pippo.gif
pippo.exe
in pratica
visualizzare pippo.gif nella image e caricare pippo.exe nella texbox contemporaneamente.

[oregon]

Perche' non provi a realizzare la modifica e, se non ci riesci, mostri il codice e il problema?

Se chiedi di fare tutto il lavoro, senza neanche vedere il codice attuale ...

[Robyn69]

se mi dici cosi significa che si può fare (credo!)
ma un aiutino senza scrivermi il codice.
per es. la procedura potrebbe essere con l'istruzione if
se devo passarlo per il form_load o per file1_click o per text1_chang
non riesco a capire come strutturare il codice.
ripeto magari senza inserire il codice solo le indicazioni per trovarmi dei doc
anke io vorrei capire quello che scrivo
il copia incolla non e che mi piaccia molto..

[oregon]

Beh .. se nel codice hai gia' una parte che esegue l'exe, nella stessa porzione di codice devi prelevare l'altro file e visualizzarlo ...

[Robyn69]

il mio intento e quello di selezionare il gif dalla listbox, quindi una volta visto cose'
poi decido se lanciare l'eseguibile oppure no
nella textbox ho soltanto inserito questa stringa
Text2.Text = File1.FileName
che mi permette di copiare quello che seleziono dalla list, nella text
e la shell agisce sulla text.
dovrei selezionare un nome dalla listbox e copiarne un altro uguale ma con estensione diversa nella textbox

dovrei fare una cosa del genere

se il nome del file gif e uguale al nome del file exe
copialo nella text2.text
se lo scrivo cosi che dite funziona?

[oregon]

Scusami ma ho difficolta' a seguire il tuo discorso ...

Se hai un nome di file completo di estensione, cambia quest'ultima e assegnala all'altra text.

[Robyn69]

come?
ho una filelist che visualizza solo file *.exe e *.gif

e la text2 associata alla filelist, quando seleziono dalla filelist, es.il file pippo.gif
la visualizzo nel image, e visto che e associata la text2,nella text2 trovo pippo.gif

e siccome la text2 e il punto di partenza per la shell, dalla text2 lancio l'eseguibile

ora nella filelist ce sia pippo.gif che pippo.exe
volevo solo sapere se era possibile fare, che quando seleziono dalla fillist pippo.gif
nella text2 anzichè vedere pippo.gif vedere pippo.exe

ora funziona cosi
dalla filelist seleziono pippo.gif e vedo la figura
se voglio lanciare l'eseguibile però devo riselezionare pippo.exe

e questo che vorrei modificare fare un unica selezione che manda l'exe nella text2 e
la gif nell' image1

vorrei capire dove prendere dei riferimenti.
ammesso che si possa fare.

[oregon]

Ma certo che si puo' fare ... e' una banalita' ...

Mostra il codice che usi che faccio riferimento a quello ...

[Robyn69]

'questo e quello che mi riporta il file selez. nella textbox
Private Sub File1_Click()
    
   Text2.Text = File1.FileName
   Image1.Picture = LoadPicture(File1.Path & "\" & (File1.FileName))
End Sub

 'e questo e con cui lo eseguo
Private Sub Command2_Click()
On Error GoTo itrErrTrap
    
    Dim RetVal As Variant
    ' Prende il Nome del file eseguibile:
    
    Text2.Text = File1.Path = path_drive & cartella
   RetVal = Shell(File1.Path & "\" & (File1.FileName))
itrErrTrap:
    If Err > 0 Then MsgBox Err.Description
End Sub

[oregon]

La prima parte serve a visualizzare l'immagine selezionata, ma la seconda non serve ad eseguire nulla.

In particolare la riga

Text2.Text = File1.Path = path_drive & cartella

non ha molto senso ...