Boa noite, a todos!!!
Agradeço desde já a quem puder me ajudar
Estou com uma dificuldade em criar pastas e subpastas, baseado nos valores de três caixas de texto.
Tenho 3 campos no formulário e quero que conforme o valor destes campos seja criado as pastas
Ex.:
No Formulário
Campo1 = Ano 'Nova Pasta conforme o ano atual
Campo2 = Nome 'Um nome qualquer para a nova pasta
Campo3 = Filial 'Um nome qualquer para a nova pasta
A sintaxe seria: o caminho fixo nunca muda, já o variável sim,
CaminhoFixo = "C:\Pasta1\Pasta2\Pasta3\"
CaminhoVariável = Me.Ano & "\" & Me.Nome & "\" & Me.Filial
Caminho = CaminhoFixo & CaminhoVariável
Portanto a montagem das pastas ficaria assim: C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2\ValorCampo3
Com o código abaixo, simplesmente não cria as pastas
Já tentei alterando a posição do else, implementando com FileSystem.MkDir, tentei até criando pasta a pasta dando um MkDir após o outro e sem sucesso, se eu deixar apenas um caminho fixo vai de boa, mas quero que os nomes das pastas sejam criadas conforme a situação que vou criando no formulário.
Private Sub FncVerificaCaminho()
Dim Caminho As String
Caminho = "C:\Pasta1\Pasta2\Pasta3\" Me.Ano & "\" & Me.Nome & "\" & Me.Filial
On Error Resume Next
If Len(Dir(Caminho, vbDirectory) & "") > 0 Then
'Verifica se existe a pasta, caso sim prossegue
Else
'Caso não, cria a pasta
If Len(Dir(Caminho, vbDirectory) & "") = 0 Then
MkDir Caminho
End If
End If
End Sub
Desde já agradeço a quem puder me ajudar
Agradeço desde já a quem puder me ajudar
Estou com uma dificuldade em criar pastas e subpastas, baseado nos valores de três caixas de texto.
Tenho 3 campos no formulário e quero que conforme o valor destes campos seja criado as pastas
Ex.:
No Formulário
Campo1 = Ano 'Nova Pasta conforme o ano atual
Campo2 = Nome 'Um nome qualquer para a nova pasta
Campo3 = Filial 'Um nome qualquer para a nova pasta
A sintaxe seria: o caminho fixo nunca muda, já o variável sim,
CaminhoFixo = "C:\Pasta1\Pasta2\Pasta3\"
CaminhoVariável = Me.Ano & "\" & Me.Nome & "\" & Me.Filial
Caminho = CaminhoFixo & CaminhoVariável
Portanto a montagem das pastas ficaria assim: C:\Pasta1\Pasta2\Pasta3\2017\Valorcampo2\ValorCampo3
Com o código abaixo, simplesmente não cria as pastas
Já tentei alterando a posição do else, implementando com FileSystem.MkDir, tentei até criando pasta a pasta dando um MkDir após o outro e sem sucesso, se eu deixar apenas um caminho fixo vai de boa, mas quero que os nomes das pastas sejam criadas conforme a situação que vou criando no formulário.
Private Sub FncVerificaCaminho()
Dim Caminho As String
Caminho = "C:\Pasta1\Pasta2\Pasta3\" Me.Ano & "\" & Me.Nome & "\" & Me.Filial
On Error Resume Next
If Len(Dir(Caminho, vbDirectory) & "") > 0 Then
'Verifica se existe a pasta, caso sim prossegue
Else
'Caso não, cria a pasta
If Len(Dir(Caminho, vbDirectory) & "") = 0 Then
MkDir Caminho
End If
End If
End Sub
Desde já agradeço a quem puder me ajudar