|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Verificar se um arquivo ou pasta existe
|
![](images/box01dirsup.gif) |
|
|
Postada em 14/12/2007 por ¨PCNATIVO
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
|
|
|
|
![](images/hosted.gif)
|