Porblema para copiar archivo

[lokoman]

Hola!!
" Miarch.txt" es la ruta del archivo... antes de pempezar a copiar, pide la ruta, algo asi:

Código vb:

Dim Ruta as String
 
CommonDialog.ShowSave
Ruta=CommonDialog.Filename
 
Open Ruta For Output As #1
...
...
..
Close#1