Access - ACCESS - Copiar archivos con selección de nombre

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 3 puestos en Access (en relación al último mes)
Gráfica de Access

ACCESS - Copiar archivos con selección de nombre

Publicado por guzz00 (1 intervención) el 24/04/2019 23:28:25
Buena, espero me puedan ayudar,

Tengo una BD en access y necesito poder copiar un archivo, explico un poco más.

En un formulario se muestran varios registros, un campo tiene por nombre "CID" y otro campo llamado "TIPO" y necesito un boton que busque el archivo por el nombre de "CID" y lo copie a una carpeta destipo dependiendo del tipo es decir, el campo CID tiene por valor B14 y por tipo 2, el archivo llamado B14 se copie a la carpeta "TIPO2".

De antemano les agradezco su ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Oscar
Val: 198
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

ACCESS - Copiar archivos con selección de nombre

Publicado por Oscar (80 intervenciones) el 29/04/2019 10:02:40
Buenos días!

Yo lo que haría en tu caso es lo siguiente, y muy básico, buscas el fichero que se llame tal cual esté en la variable [CID] (no sabemos la extensión o está inlcuida?) y lo pegas a la carpeta Tipo + número de tipo (Entiendo que tipo es numérico)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim FS, Carpeta, Archivo As Object
 
Set FS = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FS.GetFolder(RutadelaCarpeta)
 
For Each Archivo In Carpeta.Files
 
     If archivo.Name=[CID] then Filecopy (archivo.name,"\Tipo" & Tipo & "\" & archivo.name) ' Es posible que las carpetas destino deban existir en la ruta raiz (osea en RutadelaCarpeta), de lo contrario tendrás que trabajarte un poco las rutas... Eso ya es cosa tuya...
 
Next
 
set FS=nothing
set Carpeta=nothing
set Archivo=nothing

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar