| wislow |  |
|
2007-06-19 12:19 - Respuestas: 3 - Tema nº: 2453657
Características: Windows XP Profesional, 512 RAM, Athlon 64, 120 Gb.
Hola, en esto de la programación autodidacta, se van planteando pequeños problemas paso a paso. Ahora si sois tan amables me gustaría saber cual es el comando o comandos que trabajan sobre el copiar carpetas en Visual Basic 6. Gracias por vuestra colaboraciónl
| |
|
|
| ebolo |  |
|
Re: Copiar carpetas con Visual Basic 6 (Solucionado) - 2007-06-21 10:30 - Respuesta 2
Hola wislow; mírate lo siguiente:
Private Sub Form_Load()
Text1.Text = "c:\Nueva_Carpeta"
Text2.Text = "c:\Nueva_Carpeta2"
End Sub
Private Sub Command1_Click()
Dim DirOrigen As String
Dim DirDestino As String
Dim X As Integer
Dim P As Integer
DirOrigen = Text1.Text
DirDestino = Text2.Text
Call CopiaFicherosCarpeta(DirOrigen, DirDestino, P)
MsgBox ("Numeros de ficheros copiados = " & Str$(P))
End Sub
Private Function CopiaFicherosCarpeta(ByVal DirOr As String, ByVal DirDes As String, NumFiles As Integer)
Dim OldDir As String
Dim NewDir As String
Dim FileName As String
Dim sType As String
OldDir = DirOr
If Right$(OldDir, 1) "\" Then
OldDir = OldDir & "\"
End If
NewDir = DirDes
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
Wend
End Function
Saludos.
| |
|
|
| wislow | |
|
Re: Copiar carpetas con Visual Basic 6 (Solucionado) - 2007-06-22 12:44 - Respuesta 3
Gracias por tu contestación ebolo. La verdad es que esta operación parece bastante mas compleja que los comandos anteriormente preguntados. Espero que entre mi hijo y yo seamos capaces de hacerlo bien. Gracias de nuevo y saludos. | |
|
|
| ebolo | |
|
Re: Copiar carpetas con Visual Basic 6 (Solucionado) - 2007-06-22 16:43 - Respuesta 4
Es un poco más complejo porque la tarea de copiar los ficheros que existen en un directorio se halla en una función. Lo he puesto así, para que veais que hay muchas formas de hacer las cosas.
Tener funciones generales en un módulo viene muy bien cuando programas porque añades un módulo y ya tienes trabajo hecho; simplemente hay que pasarle los parámetros a la función para que te devuelva los resultados.
Lo que existe en la función se podría incluir en un botón de comando y se simplificaría un poco la cosa.
Saludos. | |
|
|
|
