Macro para mover archivo
Hola experto me gustaría saber si es posible utilizar un macro para enviar un archivo desde una ubicación a otra por ejemplo de C:\Users\Usuario\Documents\Mis archivos recibidos a C:\Users\Usuario\Documents\MATLAB . Pero que el archivo se mueva no que se copie. Gracias de antemano..
Respuesta de calvuch
1
Sub mover_archivo()
' mover archivos
Dim obj_FSO As Object
ChDir "C:\"
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
obj_FSO.MoveFile Source:="C:\loquesea.txt", Destination:="C:\carpeta\"
Set obj_FSO = Nothing
If Err.Number = 53 Then MsgBox "El archivo no existe", vbCritical
End Sub
Esto mueve el archivo de texto "lo que sea.txt" a la carpeta "carpeta" residente en C:\
Tu cambia los path
No olvides cerrar la pregunta
' mover archivos
Dim obj_FSO As Object
ChDir "C:\"
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
obj_FSO.MoveFile Source:="C:\loquesea.txt", Destination:="C:\carpeta\"
Set obj_FSO = Nothing
If Err.Number = 53 Then MsgBox "El archivo no existe", vbCritical
End Sub
Esto mueve el archivo de texto "lo que sea.txt" a la carpeta "carpeta" residente en C:\
Tu cambia los path
No olvides cerrar la pregunta
