Copiare un file per poi eseguirlo...

[Pinco Pallino 2]

....Ho messo questo codice in un commandButton:

Private Sub Bottone_Click()
filecopy app.path & "\ciao.txt", app.path & "\cartella\ciccio.txt"
'e fin qui mi copia il file rinominandolo senza problemi
domanda = msgBox ("Vuoi eseguire il file?", vbQuestion + vbYesNo, "Eseguire?")
'e qui mi da il messaggio dove mi kiede se voglio eseguirlo!
if domanda = vbYes then
shell app.path & "\cartella\ciccio.txt", vbNormalFocus
elseif vbNo then
end if
'qui cominciano i problemi...xkè se clicco si mi dice che non può...eppure il file e il percorso esistono...
End Sub

Ecco l'errore che mi da:
Grazie!

[Gigi84]

..non puoi eseguire un file NON eseguibile..
con la Shell è come se lanciassi un comando dos..

prova con
Shell("notepad " & app.path....)
così lamci il notepad e gli dai come argomento il file da aprire

altrimenti puoi usare l'API ShellExecute (se ne è parlato tanto sul forum) che apre un file specificato con il programma predefinito!!

ciao!!

[Pinco Pallino 2]

AAAAAAH! Ho capito!
Io l'avevo sempre usato per file eseguibili! Ecco perchè nn mi accorgevo della differenza con l'API!
GRAZIE!

[Gigi84]

prego!