ogzamorano
04 de Septiembre del 2003

¿Como puedo copia un archivo de una carpeta a otra?, ¿Cual es la sintaxis? por medio de un modulo de Visual Basic, no encuentro la sintaxis

Stella
04 de Septiembre del 2003

Hola,

Este un un código que copia un archivo de la unidad c a la unidad a, prueba acomodandolo para lo que lo necesitas y ojalá te sirva

Private Sub Command2_Click()

MiRuta = "c:" ' Establece la ruta.
Minombre = Dir(MiRuta, vbNormal) ' Recupera la primera entrada.
Do While Minombre <> "" ' Inicia el bucle.
' Utiliza comparación a nivel de bits para asegurarse de que MiNombre es un directorio.
If (GetAttr(MiRuta & Minombre) And vbNormal) = vbNormal Then
If Minombre = "bd3.mdb" Then
FileCopy "c:" & Minombre, "a:" & Minombre
End If
End If ' solamente si representa un directorio.
Minombre = Dir ' Obtiene siguiente entrada.
Loop

End Sub