VERIFICAR EXISTENCIA DE PASTA E SUBPASTA
Boa tarde
Tenho uma Pasta (Capas) em c.\ que, dentro da mesma, existe uma sub pasta com o nome monografia. No form, tenho um botão de comando para executar determinado código (abrir quadro de diálogo).
O que eu pretendia era que ao clicar no botão fosse verificado se a Pasta (Capas) e a Sub Pasta (Monografias) já existissem no directório C:\. Se existissem, po código avançava e abria o quadro de diálogo, caso contrário iria abrir um outro form que iria criar a Pasta e sub pasta. Tenho tudo a funcionar, excepto a verificação das pastas.
Alguém pode ajudar?
Muito obrigado.
Tenho uma Pasta (Capas) em c.\ que, dentro da mesma, existe uma sub pasta com o nome monografia. No form, tenho um botão de comando para executar determinado código (abrir quadro de diálogo).
O que eu pretendia era que ao clicar no botão fosse verificado se a Pasta (Capas) e a Sub Pasta (Monografias) já existissem no directório C:\. Se existissem, po código avançava e abria o quadro de diálogo, caso contrário iria abrir um outro form que iria criar a Pasta e sub pasta. Tenho tudo a funcionar, excepto a verificação das pastas.
Alguém pode ajudar?
Muito obrigado.
O que tu podes tentar fazer é criar uma pasta usando o [ô]mkdir[ô], se a pasta já existir vai retornar um erro, caso contrário a pasta será criada. Dá uma olhadinha neste artigo: http://www.macoratti.net/file_vb.htm#cap5
Abraço!
Abraço!
Funciona com Arquivos e pastas
Public Function ArquivoExiste(ByVal Caminho As String, Optional ByVal SomenteDiretorio As Boolean = False) As Boolean
On Error Resume Next
If SomenteDiretorio Then
ArquivoExiste = GetAttr(Mid(Caminho, 1, InStrRev(Caminho, [Ô][Ô]))) And vbDirectory
Else
ArquivoExiste = GetAttr(Caminho)
End If
On Error GoTo 0
End Function
++++++++++++++++++++++++
Para ocultar arquivos e pastas:
SetAttr [Ô]C:Pasta_Nova[Ô], vbHidden
SetAttr [Ô]C:arquivo.txt[Ô], vbHidden
Para voltar ao normal:
SetAttr [Ô]C:Pasta_Nova[Ô], vbNormal
SetAttr [Ô]C:arquivo.txt[Ô], vbNormal
[]'s
Public Function ArquivoExiste(ByVal Caminho As String, Optional ByVal SomenteDiretorio As Boolean = False) As Boolean
On Error Resume Next
If SomenteDiretorio Then
ArquivoExiste = GetAttr(Mid(Caminho, 1, InStrRev(Caminho, [Ô][Ô]))) And vbDirectory
Else
ArquivoExiste = GetAttr(Caminho)
End If
On Error GoTo 0
End Function
++++++++++++++++++++++++
Para ocultar arquivos e pastas:
SetAttr [Ô]C:Pasta_Nova[Ô], vbHidden
SetAttr [Ô]C:arquivo.txt[Ô], vbHidden
Para voltar ao normal:
SetAttr [Ô]C:Pasta_Nova[Ô], vbNormal
SetAttr [Ô]C:arquivo.txt[Ô], vbNormal
[]'s
Muito obrigado a ambos. Problema resolvido.
Tópico encerrado , respostas não são mais permitidas