>directorio a 'tal' otro. Bueno pues ahora necesito copiar toda una
>estructura de directorios con sus correspondientes archivos, es decir que
>tengo el directorio "c:\trabajo" ( el cual tiene a su vez otros
>directorios ), y necesito copiar todos los archivos y directorios a partir
>de este.

En un módulo :
Public Const FO_MOVE As Long = &H1
Public Const FO_COPY As Long = &H2
Public Const FO_DELETE As Long = &H3
Public Const FO_RENAME As Long = &H4
Public Const FOF_MULTIDESTFILES As Long = &H1
Public Const FOF_CONFIRMMOUSE As Long = &H2
Public Const FOF_SILENT As Long = &H4
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_NOCONFIRMATION As Long = &H10
Public Const FOF_WANTMAPPINGHANDLE As Long = &H20
Public Const FOF_CREATEPROGRESSDLG As Long = &H0
Public Const FOF_ALLOWUNDO As Long = &H40
Public Const FOF_FILESONLY As Long = &H80
Public Const FOF_SIMPLEPROGRESS As Long = &H100
Public Const FOF_NOCONFIRMMKDIR As Long = &H200

Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Long
        fAnyOperationsAborted As Long
        hNameMappings As Long
        lpszProgressTitle As String
End Type
Declare Function SHFileOperation Lib "Shell32.dll" _
    Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long


Para copiar el directorio :

Dim Operacion As SHFILEOPSTRUCT
Dim resultado As Long

With Operacion
    .hwnd = Me.hwnd
    .wFunc = FO_COPY
    .pFrom = "c:\trabajo" + vbNullChar + vbNullChar
    .pTo = "c:\copia" + vbNullChar + vbNullChar
    .fFlags = FOF_CREATEPROGRESSDLG Or FOF_MULTIDESTFILES Or
FOF_NOCONFIRMMKDIR
End With
resultado = SHFileOperation(Operacion)



Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma