[VB6] Aprire file dopo copia

[Il Pazzo]

devo aprire un file dopo averlo copiato... ma mi da errore... mi dice che il numero o il nome del file è errato... ma non capisco... perchè il file viene copiato correttamente... ma non lo riesce ad aprire :|

************************************************** ******************

il codice:

Private Sub Form_Load()
Name App.Path & "\prova.exe" As "C:\prova.exe"

Open "C:\prova.exe" For Binary As #1


End Sub

************************************************** *******************

Ho anche pensato che forse non riesce ad aprirlo perchè quando riceve l'istruzione di aprirlo ancora sta copiando.. ma non so se può essere possibile....

Se si avevo pensato di risolvere con uno sleep.. ma poi ho pensato che questo dovrebbe variare in base alla velocità del computer su cui deve girare il prog....

Ho anche pensato tramite l'istruzione Dir(..... , ....) ma non so come impostarla... metterla come condizione in un ciclo?? ma dentro il ciclo che gli metto????

forse so solo sparando tante di quelle cavolate...

beh cmq c'è qualcuno che mi può aiutare???

[XVincentX]

Riesci ad aprire il file principale?
Riesci ad aprire il file senza copiarlo?

[Brainjar]

Prova così, probabilmente il buffer #1 è già occupato.

Private Sub Form_Load() 

   Dim f As Integer

   Name App.Path & "\prova.exe" As "C:\prova.exe" 

   f = FreeFile

   Open "C:\prova.exe" For Binary As #f

End Sub

ciao,

[Brainjar]

Dimenticavo, l'operazione che esegui con Name, più che una Copia è
un Taglia e Copia, in pratica avrai sempre solo un file, non due.
Ciao,

[Il Pazzo]

si senza copiarlo mi apre il file.... se lo copio invece no.... però ora non mi da + l'errore... solamente non succede nulla..

[Brainjar]

Guarda che, solo con la open, non DEVE fare assolutamente nulla.
Devi leggere, con INPUT o LINE INPUT, il contenuto.

Ciao,

[Il Pazzo]

Non capisco... scusa....

se apro il file senza copiarlo allora lo vedo tra i processi attivi quindi vuol dire che funziona....


Se sposto il file e poi lo apro invece non funziona più... mi sposta solo il file ma non appare nella lista dei processi nel tak manager :|

[Il Pazzo]

Ho provato anche così... ma evidentemente era una cosa senza senso


Private Sub Form_Load()
Name App.Path & "\prova.exe" As "C:\prova.exe"

Do
If Dir("C:\prova.exe", vbNormal) = "" Then Exit Do
Loop

nFile = FreeFile()
'Open App.Path & "\prova.exe" For Binary As #nFile
Open "C:\prova.exe" For Binary As #nFile
End Sub

Ma ripeto.. se il file non lo sposto funziona... altrimenti no :|

[Il Pazzo]

lo so forse faccio tante cretinate (forse perchè le cose le faccio senza vere basi teoriche ma cerco semplicemente di capire dagli altri codici.... ) ma qualcuno sa dirmi come posso risolvere il problema???

[Il Pazzo]

vi prego raga.... sono un bastardo rompi***** depresso....lo so e mi scuso..... almeno voi aiutatemi :'( Ho urgente bisogno di sta cosa... qualcuno sa dirmi?