[Resolvido]escolher diretório\sub diretório para criar pasta baseado em valor caixa combinação

Boa tarde

Tenho varios diretorios com sub diretório ao todo são dez e não mudam, e gostaria de criar pasta de acordo com o valor da caixa de texto ou combinação.
ex diretórios : c:\ formatos\Fotos 2012 - Julio\
c:\ formatos\Fotos 2012 - Ribeiro\
ex caixa de combinação = valor caixa de combinão = Julio
valor caixa de combinão = Ribeiro
estou usando esse código que peguei aqui:
mas só consigo um diretório

----------------------------
Dim resultado As VbMsgBoxResult
resultado = MsgBox("CRIAR PASTA DE FOTOS ?", vbYesNo, "Tomando uma decisão")
If resultado = vbYes Then
Dim fso As Object

'habilite a referencia Microsoft Scripting Runtime
'By JPaulo ® Maximo Access
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("C:\formatos\Fotos 2012 - Julio\" & Me.NomeDaPastas.Value) Then ' verifica se já existe a pasta
MsgBox "A pasta já existe!"
Else
MkDir ("C:\formatos\Fotos 2012 - Julio\" & "" & Me.NomeDaPastas.Value)
Me.NomeDaPastas.Value = Me.NomeDaPastas.Value
Me.NomeDaPastas.Requery
End If
Else
MsgBox "NÃO CRIOU PASTA"
End If
----------------------------------
Se puderem me ajudar, desde já agradeço

O que eu quero é, se na combo conter o valor "Julio",
eu crie uma pasta com o o valor que contem em outra caixa texto no diretorio
"C:\formatos\Fotos 2012 - Julio\"
se na combo conter valor "Ribeiro", eu crie uma pasta no diretório
"C:\formatos\Fotos 2012 - Ribeiro\"
O nome da pasta que vai criar vai ser o que estiver em outra caixa texto
Os diretórios são fixos, não mudam, são dez nomes cadatrados na combo, cada nome tem seu diretório.

Sim, a pasta a ser criada com o nome determinado numa caixa texto eu já consigo, só quero definir o diretorio dela de acordo com o nome que aparece na combo

Ola
Está retornado que não existe diretório e não cria pasta
mas diretórios existem
C:\formatos\Fotos 2012 - Julio
C:\formatos\Fotos 2012 - Ribeiro
dentro desses diretorio quero criar pasta com nome que esta na caixatesto (NomeDaPastas)
Escolhendo diretório através da terceira coluna da combo que é o valor da caixa texto (LocalPasta)


Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' verifica se existe o diretório
If fso.folderexists("C:\formatos\" & Me.LocalPasta.Value) Then
' verifica se o campo com o nome da nova pasta tem um valor
If Not IsNull(Me.NomeDaPastas) Then
MkDir ("C:\formatos\" & Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value)
Else
MsgBox "Informe o nome da nova pasta!"
End If
Else
MsgBox "O diretório não existe!!"
End If
End Sub

Desse jeito da a mensagem que não existe diretório, sendo que não preciso criar os mesmo pois já tem, quero que ache o diretório cujo nome está na caixa texto (C:\formatos\Fotos 2012 - Julio)e cria a nova pasta dentro

continua dando mensagem que não existe diretório, e não cria pasta

Vou postar aqui o bd , talves assim possa solucionar meu problema
Obrigado
Botão (1) cria a pasta, mas só e um lugar
Botão (2) quero que cria a a pasta no diretório que aparece ncaixa texto ( Local Pasta Criada )
Ok

Ola Norbs
Esse esta access 2003
Assim que puder responda
Obrigado

Norbs
por padrão tenho diretório assim para cada fotógrafo
C:\formatos\Fotos 2012 - Julio
C:\formatos\Fotos 2012 - Ribeiro
só preciso criar dentro do diretório "C:\formatos\Fotos 2012 - Ribeiro", uma outra pasta com nome determinado na caixa texto "NomeDaPastas", lembrando que o diretório deve mudar de acordo com o nome do fotógrafo
, quando for o fotógrafo Julio o diretório da nova pasta deve ser "C:\formatos\Fotos 2012 - Julio", quando for o fotógrafo Ribeiro o diretório da nova pasta deve ser "C:\formatos\Fotos 2012 - Ribeiro" .Quanto a nome caixa de combinação16 não tem problema mudar.
obs: consigo criar a pasta de acordo com nome do fotógrafo no diretório "C:\formatos\" como no botão "1", eu não estou conseguindo que ela seja criada dentro das pasta de cada fotógrafo que está dentro de "C:\formatos\Fotos 2012 - Ribeiro\ (nova pasta criada) ou C:\formatos\Fotos 2012 - Julio\(nova pasta criada).
Obrigado pela atenção
Aguiar

Ola
Bom Dia Norbs
Vou tentar esclarecer melhor:
1º- Tenho varios diretórios como o que aparece na caixa texto "LocalPasta" quando seleciono um nome na caixa de combinação
Fotografo "combinação16", por exemplo seleciono Julio apareçe "C:\formatos\Fotos 2012 - Julio",na caixa texto "LocalPasta"
Esse deve ser o local da nova pasta a ser criada com nome que aparece na caixa texto "NomeDaPastas"
2º- Com o botão "1" eu consigo criar essa pasta mas só dentro de formatos ou dentro da pasta "Fotos 2012 - Julio" se deixar o código assim " MkDir ("C:\formatos\Fotos 2012 - Julio\" & "" & Me.NomeDaPastas.Value)"
3º- Quanto ao nome das pastas a serem criadas, já funciona no código, o problema é ela serem criadas dentro de cada pasta - Fotos 2012 "nome fotografo" de acordo com caixa texto "LocalPasta"
4º- Os diretórios que tenho e que aparecem na caixa texto de acodo com nome são:
C:\formatos\Fotos 2012 - Julio
C:\formatos\Fotos 2012 - Ribeiro
Na verdade são dez fotógrafos, cada um tem seu diretório no computador.

Private Sub Comando128_Click()
'adaptado por Norberto Rost
'objetivo: criar nova subpasta para Fotógrafo a partir da pasta do Fotógrafo atual
'verifica se o nome da nova pasta foi informado no campo NomeDaPastas
If IsNull(Me.NomeDaPastas) Then
MsgBox "Preencha o campo que informa o nome para a pasta."
Me.NomeDaPastas.SetFocus
Exit Sub
End If
'verifica se existe um caminho no campo LocalPasta
If IsNull(Me.LocalPasta) Then
MsgBox "O campo que informa o caminho está vazio!"
Me.LocalPasta.SetFocus
Exit Sub
End If
Dim resultado As VbMsgBoxResult
resultado = MsgBox("Criar nova subpasta para este Fotógrafo?", vbYesNo, "Confirmação")
If resultado = vbYes Then
Norbs quero te agradecer muito, matou em cima o que eu queria
Só tirei uma linha pois não queria que atualizaçe "NomeDaPastas"
para impedir de criar a mesma pasta dentro de outra.
Agora vou ver se consigo abrir a pasta após ser criada
Muito Obrigado pela ajuda
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo ® Maximo Access
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'verifica se existe esta subpasta
If fso.folderexists(Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value) Then
MsgBox "A pasta já existe!"
Else
MkDir (Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value)
'Me.LocalPasta.Value = Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value
Me.LocalPasta.Requery
MsgBox "Nova pasta criada!"
End If
End If
End Sub