Associare il contenuto di una TextBox ad una ListBox

[LMondi]

Robyn69, c'è qualche ridondanza nel codice che hai postato.
Controlla ... magari con F8 ed introduci un controllo degli errori.
Di seguito posto un esempio di comando con il controllo errori:

Private Sub Command1_Click()
On Error GoTo itrErrTrap
    
        Dim RetVal As Variant
        RetVal = Shell("C:\Windows\System32\calc.exe", vbNormalFocus)

itrErrTrap:
    If Err > 0 Then MsgBox Err.Description
End Sub

[Robyn69]

eccomi di nuovo
risolto il probl 'nomefile = Dir("*.exe") cosi e ok!
prima era 'nomefile = Dir(str & "*.exe")
la ridondanza che dicevi tu era quella giusto?

ora va bene
ma il problema e un altro
ricordi questo File1.FileName = Text1.Text
es.
text1tex = pippo
installo pippo.exe
fin qui ok
ma quando scorro i record quelli della text1. i nomi nella text1 cambiano
ma nella list1 mi rimane sempre pippo.exe
il campo della tabella e Nome
devo aggiungere qualcosa che riguarda il recordset davanti al File1.FileName = Text1.Text

ti ringrazio molto e un mese che giro intorno a questo prog. ma ogni volta che penso di aver finito e che eseguo il prog mi accorgo che potrei migliorarlo e sopratutto con il Vs aiuto ci sto riuscendo..
conosci un corso interattivo buono sono proiettatto ad impararlo come si deve il vb

[LMondi]

Robyn69, non sono entrato nel merito di come hai strutturato il prog., sia perchè ritengo che si debbano fare le proprie esperienze, sia perchè non ero in grado di capire l'insieme dal poco codice che hai postato. Detto questo l'indicazione che ti ho fornito era relativa a:

vorrei fare in modo che nella filelistbox mi apparisse solo il nome che vedo nella textbox ...

Ora per continuare a selezionare un file (ulteriore) che risiede nello stesso percorso con l'introduzione di un nuovo nome nella Txt devi aggiungere un controllo DirListBox sulla Form ed il seguente codice. Ti dico subito che dovrai inserire un gestore degli errori (che peraltro ti ho già postato) altrimenti se non si trova il file il prog. si blocca.

Private Sub Command1_Click()
    ' Il testo viene analizzato nei componenti di
    ' percorso e criterio di ricerca:
        File1.FileName = Text1.Text
   ' Imposta il percorso della  directory:
        Dir1.Path = File1.Path

End Sub
Private Sub File1_PatternChange()
   ' Imposta il testo come nuovo criterio di ricerca:
        Text1.Text = File1.Pattern
      
End Sub
' Imposta il percorso per la casella di riepilogo
 'dei file:
Private Sub Dir1_Change()
   File1.Path = Dir1.Path
End Sub

[LMondi]

Robyn69,
rileggendo i vari post, mi sembra di capire che in (Text1.tex = pippo.exe) hai già il nome del file eseguibile e che Text1.tex viene di volta in volta caricato con un rs del DB.
Se è così postresti evitare tutte le complicazioni (che inoltre risulterebbero inutili), semplicemente dando la riga di comando alla Shell:

Private Sub Command1_Click()
On Error GoTo itrErrTrap
    
    Dim sNomeFile As String
    Dim RetVal As Variant
    
' Prende il Nome del file eseguibile:
    sNomeFile = Text1.Text & ".exe"
    
    RetVal = Shell(App.Path & "\" & sNomeFile, vbNormalFocus)

itrErrTrap:
    If Err > 0 Then MsgBox Err.Description
End Sub

Il codice di cui sopra è di massima, magari fai una ricerca su l'uso del comando Shell o apri un'altro post mirato sul nuovo argomento.

[Robyn69]

allora l'ltimo codice e ok funziona in tutto
ossia se il file della lista non corrisponde alla text1 mi da "impossibile trovare il file"
e non si blocca quindi ok..
grazie mille per tutto

una domanda ma la finestra con la scritta Impossibile trovare il file
dove sta? nel codice di ricerca errori "Err.Description" e questa giusto?

ok mi sto studiando la ricerca dei record ora mi leggo qualche riferimento poi magari posto qualcosa

grazie di nuovo ciao

[LMondi]

Sì è così, in particolare intercetta l'errore (If Err > 0) il cui numero è in Err, al quale corrisponde una descrizione (Err.Description).
Ad esempio per "Impossibile trovare il file" corrisponde l'errore 53.
Una panoramica degli errori, la puoi trovare in "Errori intercettabili" della guida in linea.