[VB6] Copia file al clic su un pulsante

[g.patera]

Ciao a tutti!
E' da un pò che cerco di dare questo comando a vb6 ma sicuramente sbaglierò qualcosa, potreste darmi una mano?
Praticamente io voglio che al click di un tasto, vb6 prenda una directory scritta da me e ne copi all' interno un file che è presente della cartella del mio programma.
Ad esempio: io scrivo in text1 "C:\ programmi\prova" e al click su un tasto, il programma prenda il file presente nella cartella di vb6 "file" e lo copi nella directory indicata prima.
So che è un po confuso, ma potreste per favore aiutarmi?
Ecco un pò di quello che ho scritto io, che sicuramente è sbagliato:

Private Sub Command1_Click() 
if Text1.Text = "C:\programmi\prova" then 
FileCopy shell & "\file", text1.path & "\" & text1.text 
End Sub

Sarà sicuramente un casino senza senso ma per quello che se è impossibile per me fare di meglio.
Spero in un vostro aiuto ragazzi! Grazie!

[gibra]

Dire 'confuso' è un eufemismo

Non hai scritto nemmeno una (ripeto una) riga corretta.
Mettersi a scrivere codice a casaccio non porta a nulla, almeno questa è l'impressione che se ne trae guardando il tuo codice.

- shell : che roba sarebbe?
- text1.path : nel TextBox non esiste questa proprietà.
- nella If manca la End if

Una cosa è certa: il tuo codice non funziona.

2 consigli:
1 - Consultare bene la guida sugli oggetti/controlli PRIMA e DURANTE l'uso

2 - fare il DEBUG del tuo codice, così:

(a) metti il cursore sulla
if Text1.Text = "C:\programmi\prova" then
e premi F9

(b) fai eseguire il codice (ammesso che parta)
e quando si ferma sulla riga
premi F8 per eseguire un'istruzione per volta.

Se da errori, guardane il significato nella guida.

[StegcO]

Private Sub mnu_file_copia_sicurezza_Click()
 
FileCopy txt_PathSelezione.Text, txt_PathDestinazione.Text

Call Shell("Explorer.exe " & PathDestinazione, vbNormalFocus)

End Sub

Prova così, la prima TXT è la cartella che vuoi copiare, la seconda è dove andrà a copiarla

[g.patera]

ciao di nuovo.. allora, ragionando sul mio problema ho provato a fare questo:

Private Sub Command13_Click()
FileCopy prova, Text1 
RarReg = Shell("\prova")
Text1 = "(directory in cui inviare il file)" 
End Sub

Premetto di sapere che sicuramente avrò sbgliato una miriade di cose, ma non conosco molti comandi perciò mi baso su quei pochi che conoso.
Aspetto con ansia un vostro suggerimento!
Grazie 1000 a tutti per l' aiuto!