ERRO AO CRIAR DIRETÓRIO COM MKDIR

GNCNET 11/03/2015 19:14:46
#445161
Pessoal,
Ao tentar criar uma pasta (VB6) e subpasta com Mkdir ocorre o erro run-time 76.
Exemplo:
if dir([Ô]C:    este\subpasta[Ô] , vbDirectory) = [Ô][Ô] Then
Mkdir [Ô]C:    este\subpasta[Ô] [ô]ocorre o erro
end if

Entretanto, consigo criar se fizer assim:
if dir([Ô]C:    este\subpasta[Ô] , vbDirectory) = [Ô][Ô] Then
Mkdir [Ô]C:    este[Ô]
Mkdir [Ô]C:    este\subpasta[Ô]
end if

Por que isto?
Grato,
Gardel
NILSONTRES 11/03/2015 19:42:01
#445162
[ô]referencie Imports System.IO
If Directory.Exists([Ô]C:    este\subpasta[Ô]) = False Then
Directory.CreateDirectory([Ô]C:    este\subpasta[Ô])
End If
GNCNET 13/03/2015 21:21:56
#445219
Nilson, desculpe, mas o projeto é em VB6. Informei errado anteriormente como vb.net
FABRICIOWEB 14/03/2015 06:12:42
#445224
crio dessa forma

If Dir(CONECTAR.Text1.Text & [Ô]\clientes\[Ô] & Text9.Text, vbDirectory) = [Ô][Ô] Then
MkDir CONECTAR.Text1.Text & [Ô]\clientes\[Ô] & Text9.Text
Else

End If
GNCNET 14/03/2015 11:12:26
#445227
Fabricio,
é isto que tenho feito, funciona se criar 1 pasta, mas ao criar subpastas ocorre o erro
FABRICIOWEB 14/03/2015 19:25:25
#445242
tenta na gambi 2 chamdas seguidas uma cria a pasta e a outra a sub
If Dir(CONECTAR.Text1.Text & [Ô]\clientes\[Ô] & Text9.Text, vbDirectory) = [Ô][Ô] Then
MkDir CONECTAR.Text1.Text & [Ô]\clientes\[Ô] & Text9.Text
Else
End If
If Dir(CONECTAR.Text1.Text & [Ô]\clientes    este\[Ô] & Text9.Text, vbDirectory) = [Ô][Ô] Then
MkDir CONECTAR.Text1.Text & [Ô]\clientes    este\[Ô] & Text9.Text
Else
End If
GNCNET 15/03/2015 14:53:46
#445249
Alguma idéia?
GNCNET 05/08/2015 19:54:10
#449650
Solução: Para criar a pasta é necessário colocar [Ô]\[Ô] barra invertida no final do caminho:
  Mkdir [Ô]C:    este\subpasta\[Ô]


\\\\\\\\\\\\\\\\\\\\\\\\
Grato
Tópico encerrado , respostas não são mais permitidas
Voltar