[Resolvido]Criar Pasta e SubPastas dentro dela

Bom dia,
Utilizo o código abaixo para criar uma subpasta (em C:\Casos) cujo nome será o valor do campo "CodPre".
agora estou tentando criar mais três subpastas dentro desta pasta criada (valor de CodPre) e não estou
conseguindo. Seria:

CodPre + Geral
CodPre + Psicologia
CodPre + ServSocial




Private Sub Codpre_AfterUpdate()
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo Maximo Access

Dim fso As Object
Dim nfol As String


Set fso = CreateObject("Scripting.FilesystemObject")
nfol = "C:\Casos\" & Me.Codpre.Value

If Not fso.FolderExists(nfol) Then
fso.CreateFolder (nfol)
Else
Exit Sub
End If
Me.Pasta.Value = nfol
Me.Pasta.Requery


End Sub

Desde já agradeço.

Bom dia Daluque! Recentemente precisei fazer um código desse. Então disponibilizo aqui pra você. No caso ele está aplicado ao evento ao clicar de um botão de comando, mas você pode adptar pra realidade do teu banco:

Código:

 ' Definir a referência à biblioteca do sistema de arquivos do Windows
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    ' Definir o caminho para a pasta principal
    Dim parent_folder As String
    parent_folder = "C:\Casos\"
   
    ' Definir o valor do campo CodPre
    Dim cod_pre As String
    cod_pre = Me.codPre.Value
   
    ' Criar a pasta com base no valor de CodPre
    Dim new_folder As Object
    Set new_folder = fso.CreateFolder(parent_folder & cod_pre)
   
    ' Criar as subpastas dentro da pasta criada com base no valor de CodPre
    Dim subfolders As Variant
    subfolders = Array("Geral", "Psicologia", "ServSocial")
    Dim subfolder As Variant
    For Each subfolder In subfolders
        fso.CreateFolder new_folder.Path & "\" & subfolder
    Next subfolder
   
    ' Liberar a memória do objeto FileSystemObject
    Set fso = Nothing


Aguardo retorno.

Private Sub Comando5_Click()
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo Maximo Access

Dim fso As Object
Dim nfol As String
Dim subPasta As String
Set fso = CreateObject("Scripting.FilesystemObject")
nfol = "C:\Casos\" & Me.codpre.Value
If Not fso.FolderExists(nfol) Then
fso.CreateFolder (nfol)


Else
 MkDir nfol & "\" & Me.subPasta.Value
 
             

Exit Sub
End If
End Sub

Opa, adriano.ig. Entrou junto.

Olá amigos.

Adriano: apliquei, fiz uns testes e seu código deu certo.

obrigado aos amigos.

Maravilha Daluque!

Sucesso em seus projetos!