[Resolvido] Criar Pasta Com Selecção

Viva a todos

Pretendia criar uma Pasta vazia em c:\ a partir de um botão de comando ligado a uma caixa de texto, que a Pasta fosse criada em modo silencioso (não visível no acto) e que o caminho fosse clocado noutra caixa de texto.

1- Caixa de texto 1.....Digito 1234/2010...clico no botão criar ( a pasta foi criada em C:\1234/2010) e o caminho da Pasta foi colocada na caixa Route no form.

Alguém pode me ajudar??? é urgente


Muito obrigado

http://dl.dropbox.com/u/771097/CriaPasta.txt

Quero desde já agradecer, mas recebo uma mensagem de erro (Type mismatch) na linha (If fso.folderexists....)???

Dim fso As Object
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo Maximo Access
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("C:\Programas\EasyAdvo2.0") & Me.NProcesso.Value Then ' verifica se já existe a pasta
MsgBox "A pasta já existe"
Else
MkDir "C:\Programas\EasyAdvo2.0" & Me.NProcesso.Value ' se não existir cria
End If
Me.Pasta.Value = "C:\Programas\EasyAdvo2.0" & Me.NProcesso.Value
Me.Pasta.Requery

teste por favor;

http://dl.dropbox.com/u/771097/Vieira.txt

Tudo funciona sem erros e o c aminho é colocado na pasta, mas apareceu outro problema. Diz que a pasta foi criada, mas não cria nenhuma pasta. Já experimentei vários processos, não dá erro, coloca o caminho, mas não cria a pasta?

Perdão, efectivamente cria, mas não dentro da Pasta EasyAdvo2.0, mas sim em Programas? Peço desculpa pela mensagem anterior. Não percebo porque cria as Pastas em C:\Programas, ao invés de C:\Programas\EasyAdvo2.0?

Será que tem alguma solução para isto?

Renovo os meus agradecimentos, pois estava bem encravado com isto e tenho que entregar esta aplicação na sexta ao cliente.

Já percebi o problema. Está nesta linha:
MkDir "C:\Programas\EasyAdvo2.0" & Me.NProcesso.Value ' se não existir cria Ou seja ao invés de criar a Pasta dentro da Pasta EasyAdvo2.0 ele cria uma nova pasta em Programas com o nome EasyAdvo2.0 + o Nprocesso.

Agradeço se puder corrigir esta situação

Obrigado

Então terá de criar uma subpasta;

Teste;

Dim fso As Object
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo Maximo Access
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("C:\Programas\EasyAdvo2.0\EasyAdvo2.0" & Me.NProcesso.Value) Then ' verifica se já existe a pasta
MsgBox "A pasta já existe"
Else
MkDir "C:\Programas\EasyAdvo2.0\EasyAdvo2.0" & Me.NProcesso.Value ' se não existir cria
End If
Me.Pasta.Value = "C:\Programas\EasyAdvo2.0\EasyAdvo2.0" & Me.NProcesso.Value
Me.Pasta.Requery

Cria a primeira Pasta (EasyAdvo2.0178456XCV2006) dentro da pasta EasyAdvo2.0, mas quando mando criar a segunda, diz...Path not found e abre o módulo nesta mesma linha
MkDir "C:\Programas\EasyAdvo2.0\EasyAdvo2.0" & Me.NProcesso.Value ' se não existir cria

Desde que "C:\Programas\EasyAdvo2.0" já exista, fiz o teste e cria todas sem problema .

teste assim;

Dim fso As Object
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo Maximo Access
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("C:\Programas\EasyAdvo2.0") Then ' verifica se já existe a pasta
MsgBox "A pasta já existe, vai criar a subpasta"
Else
MkDir "C:\Programas\EasyAdvo2.0" ' se não existir cria
End If
MkDir "C:\Programas\EasyAdvo2.0\EasyAdvo2.0" & Me.NProcesso.Value ' se não existir cria a subpasta
Me.Pasta.Value = "C:\Programas\EasyAdvo2.0\EasyAdvo2.0" & Me.NProcesso.Value
Me.Pasta.Requery

O programa diz a Pasta já existe vai criar a sub pasta e depois...Path not found ou seja a primeira pasta cria dentro da Pasta da Aplicação EasyAdvo2.0. As seguintes dá sempre estas mensagens de erro.

Muito estranho amigo Vieira.

Repliquei o seu banco, digitei numa caixa de texto de nome NProcesso, varias coisas e foi sempre criando.

Só vendo mesmo.

Mudei o caminho para C:\ & NProcesso.Vakue e ele começou a criar as Pastas e abri-las direitinho. Vou fazer a opção por colocar a aplicação em C.

MUITO, MUITO obrigado JPaulo pela paciência que teve comigo que se traduziu numa ajuda muito grande, pois o problema encontar-se resolvido.

Obrigado pelo seu retorno o forum agradece.

Se precisar de novo dê um grito aqui.

JPaulo, j+a percebi o erro e serve de alerta para futuro... Mesmo em C: com uma nova pasta sucedeu o mesmo erro. Ou seja se o NProcesso tiver só números e letras sem barras do tipo / ele não dá erro. Se forv escrito assim...999999CDR2004, tudo bem. Se for escrito assim.....999999CDR/2004, dá logo erro. Se houver maneira de contornar isto, tudo bem caso contrário já me dou por satisfeito.

Um garnde abraço de Portugal

Negativo amigão.

Tente criar no seu Windows uma pasta e dê-lhe o nome assim: 1234/xpto

Vai ver que esse simbolo é proíbido.

Se esse simbolo existir nos dados da sua tabela, tem aqui mesmo na sala de códigos um código para limpar todos os simbolos.

Por que não substituir a / por um - ? Como disse o amigo JP, a barra e mais alguns símbolos não são aceitos no nome de pastas e arquivos. E como um nome de pasta assim "21052101425" ficaria mais difícil de se achar no meio da multidão do que uma assim "21-05-2010-14-25" eu prefiro usar da segunda maneira, rsrsrs.

Olá amigos, bom dia!

Seria possível criar um diretório e subdiretórios nele, em seguida outro diretório e os subdiretórios nesse e assim até um limite definido, tipo um loop???
ex: tenho uma tabela com duas colunas:
escola___turma
101______1201
101______1202
101______1203
102______1204
102______1205
103______1206
103______1207
Criar as pastas da seguinte forma:
C:/101/1201
C:/101/1202
C:/101/1203
C:/102/1204
C:/102/1205
C:/103/1206
C:/103/1207

Tem como pesquisar nessa tabela e criar tudo automaticamente, com um único clique??

abraços

Edmundo.

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