[Resolvido]Criar pasta e exportar anexos

Olá senhor.

Estou atras de uma função que seria o seguinte:

Tenho uma tabela com o nome de alguns funcionários e uma segunda tabela onde tenho documentos anexos (apenas o link de onde estão esses documentos ) atrelados a esses funcionários.

O que tenho em mente e direcionar uma determinada pasta na rede, e através de um código criar pastas com os nomes desses funcionário e na sequencia exportar esses mesmos anexos para cada pasta de cada um.

Será que fui claro ?

Desde já agradeço e toda ajudar será bem vinda

Obrigado

Boa noite José!

Imagino que seja possível sim...

Vamos a ideia:

Poderá fazer um loop (por recordset) numa query que retorne o nome e os links dos documentos e esses você manipule como quiser, veja no exemplo:
Considere uma query que retorne dois campos: NomeFuncionario, que armazena obviamente o nome do funcionário) e Documento, que armazena o link (caminho do documento):

Código:

   
    Dim fso As Object
    Dim rst As Recordset
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set rst = CurrentDb.OpenRecordset("SuaQuery") 'Abro o recordset
    
    'Percorro todas as linhas do recordser
    Do Until rst.EOF
            
            'Verifico se não existe uma pasta com o nome do funcionário dentro da pasta da rede e caso não exista, crio.
            If Not fso.FolderExists("PastaDaRede\" & rst!NomeFuncionario) Then fso.CreateFolder "PastaDaRede\" & rst!NomeFuncionario
            
            'Copio o arquivo do caminho gravado na tabela para a pasta recém criada na rede
            fso.copyfile rst!Documento, "PastaDaRede\" & rst!NomeFuncionario & "\" & fso.GetFileName(rst!Documento)
            
            rst.MoveNext
    Loop
    
    rst.Close 'Fecho o recordset
    Set rst = Nothing 'Apago o objeto recordset da memória (desassocio)
    Set fs = Nothing 'Apago (desassocio)  o objeto Scripting

Bom dia.

Perfeito Davi, muito obrigado pela sua atenção

Obrigado pelo retorno!  
Aprecio muito seu designer!

Sucesso.

Obrigado, levei algum tempo para achar um padrão para meus trabalhos.



Apenas um fundo branco com algumas imagens gif.