|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Verificar se um arquivo ou pasta existe
|
 |
|
|
|
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
|
|
|
|
|
