HOLA A TODOS EL TEMA ES SIMPLE PARA USTEDES PERO NO PARA MI, HACE MUY POCO QUE USO VB6 Y ESTOY ATASCADO INTENTADO PONER UN PROGRESSBAR A ESTO.
Private Sub PATCH_Click()
run.Enabled = False
Dim fs As Object
L2sys = "c:\archivos de programa\lineage ii"
If serverlist.ListIndex = 0 Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\dragon\*.*", L2sys, True
ACTIVE.Caption = "DRAGON"
run.Enabled = True
End If
If serverlist.ListIndex = 4 Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\ANTHARAS\*.*", L2sys, True
ACTIVE.Caption = "ANTHARAS"
run.Enabled = True
End If
If serverlist.ListIndex = 1 Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\ADDICTION\*.*", L2sys, True
ACTIVE.Caption = "ADDICTION"
run.Enabled = True
End If
If serverlist.ListIndex = 2 Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\EXTREME\*.*", L2sys, True
ACTIVE.Caption = "EXTREME"
run.Enabled = True
End If
If serverlist.ListIndex = 3 Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\clientes\lineage ii\BAIRES\*.*", L2sys, True
ACTIVE.Caption = "BAIRES"
run.Enabled = True
End If
End Sub
COMO VERAN ESTOY USANDO LA ORDEN COPYFOLDER LA CUAL CASI NO CONOSCO Y NO SE COMO DARLE UN VALOR AL PROGRESS QUE CONCUERDE CON EL PROCESO REAL DE COPIA.
