'Como copiar ficheros desde un directorio a otro
'1. Crear un nuevo proyecto en Visual Basic por defecto es "Form1"
'2. Añadir el siguiente codigo al evento "Form_load" del Form1
Private Sub Form_Load()
text1.Text = ""
text2.Text = ""
End Sub
'3. Añadir un label control al form1, por defecto es label1, escribir en
'propiedades Caption "Directorio Fuente"
'4. Añadir un segundo label control al form1, por defecto es label2, escribir
'en propiedades Caption "Directorio de Destino"
'5. Añadir un control "Text Box" al Form1, por defecto será Text1
'6. Añadir un segundo control "Text Box", por defecto será Text2
'7. Añadir un boton al Form1 "Command Button" en propiedades caption
'escribir "Copiar Ficheros"
'8. Añadir el siguiente codigo al evento "Click" de Command1:
Private Sub Command1_Click()
Dim SourceDir As String
Dim TargetDir As String
Dim X As Integer
Dim P As Integer
SourceDir = text1.Text
TargetDir = text2.Text
CopyFile(SourceDir, TargetDir, P)
MsgBox("Numeros de ficheros copiados = " & Str$(P))
End Sub
'9. Crear una nueva subrutina llamada CopyFile y añadirle el codigo siguiente.
Sub CopyFile(ByVal SrcDir As String, ByVal TrgtDir As String, ByVal NumFiles As Integer)
Dim OldDir As String
Dim NewDir As String
Dim FileName As String
Dim sType As String
OldDir = SrcDir
If Right$(OldDir, 1) <> "\" Then
OldDir = OldDir & "\"
End If
NewDir = TrgtDir
If Right$(NewDir, 1) <> "\" Then
NewDir = NewDir & "\"
End If
NumFiles = 0
FileName = Dir$(OldDir & "*.*")
While FileName <> ""
On Error Resume Next
FileCopy (OldDir & FileName), (NewDir & FileName)
If Err = 0 Then
NumFiles = NumFiles + 1
Else
Beep()
MsgBox Error$, MB_ICONEXCLAMATION, ("Error copiando fichero " & FileName)
End If
On Error Goto 0
FileName = Dir$
DoEvents()
End While
End Sub
'Ejecutar el ejemplo pulsando F5. Escribir el nombre de el directorio Fuente.