???

Ok estoy haciendo una Aplicacion que consiste en:

Copiar un Archivo de un lugar a otro y este el el Codigo:

Private Sub Form_Load()
Set C = CreateObject("Scripting.FileSystemObject")
Set G = C.GetFile("c:\test.txt")
If G = "" Then
MsgBox "No existe", vbInformation, "Copiar"
Else
Set G = Nothing
C.CopyFile "C:\Test.txt", "C:\Windows\Desktop"
End If
End Sub


El problema es que no me lo copia, y si le quita el On Error Resume Next me sale un Error que dice:

Permision Denied (Permiso Denegado)

Que esta pasando?

Me imagino que como esta en GetFile pues esta siendo usado y por lo tanto no me permite copiarlo.

Crei que escribiendo justamante despues de:

Else
Set G = Nothing

que se liberaria el Objeto pero no me permite copiarlo todavia.

 

Tienes razon Mr.Potato jeje

He modoficado el Codigo asi:

Dim H As Long
H = RegisterServiceProcess(GetCurrentProcessId(), RSP_SIMPLE_SERVICE)
FileCopy "c:\test.txt", "c:\windows\desktop\test.txt"

y me ha funcionado


jeje Gracias

de la misma forma, claro esta poniendo la ruta correcta.

pues depende de como quieras hacerlo, si usas alguna ventana cuando esta inicie  lo copias del mismo modo que pone en los otros posts, si no usas ventana en la rutina que inicie el programa. pero vamos el copiarlo se copia =.