Mover archivos de ubicación (Macro)
Amigos tengo un formulario con un textbox y un botón de comando, quiero que en el textbox pueda indicar el nombre exacto del archivo que tengo en carpeta1 y al presionar el botón quiero que busque el archivo y lo mueva a carpeta2.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro.
Cambiar origen y destino por el nombre de tus carpetas
El archivo en el textbox debe llevar también la extensión
Private Sub CommandButton1_Click() 'Por Dante Amor origen = "C:\trabajo\varios\" destino = "C:\trabajo\libros\" archivo = TextBox1.Value If archivo = "" Then MsgBox "Captura el archivo" TextBox1.SetFocus Exit Sub End If If Dir(origen & archivo) = "" Then MsgBox "El archivo no existe" TextBox1.SetFocus Exit Sub End If ' Name origen & archivo As destino & archivo MsgBox "El Archivo Fue Cambiado" End Sub
[sal u dos
