a=InputBox("Escribe el Path completo del archivo que quieres copiar, por ejemplo C:\autoexec.bat") Set fso = CreateObject("Scripting.FileSystemObject") If Not (fso.FileExists(a) ) Then b=MsgBox("El archivo no existe.") Else b=InputBox("Ahora escribe el Path completo donde lo quieres copiar, por ejemplo C:\mi_vbs\") fso.CopyFile a, b 'Set MiArchivo = fso.GetFile(a) 'MiArchivo.Copy (b) x=MsgBox("El archivo ha sido copiado.") End If ' Pide el nombre de un archivo, comprueba si existe, pide donde lo quiere copiar, lo copia.