|
|
Postada em 09/10/2006 12:02 hs
Tenho um sistema que vai descarregar no word, porém preciso verificar se já existe um arquivo com o mesmo nome que o usuário criar, então: Como faço para verificar se um arquivo existe no diretório padrão: app.path |
|
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/10/2006 13:11 hs
'Função para verificar se arquivos ou pastas existem
Public Function funFileExists(ByVal PathName As String, Optional Directory As Boolean) As Boolean
If PathName <> "" Then
If IsMissing(Directory) Or Directory = False Then
funFileExists = (Dir$(PathName) <> "")
Else
funFileExists = (Dir$(PathName, vbDirectory) <> "")
End If
End If
End Function
|
|
|
|
|
|
Postada em 10/10/2006 03:34 hs
Obrigado Martini, com sua ajuda consegui, apenas adicionei ao código: If funFileExists(App.Path & "" & txtNovoDoc.Text & ".doc") = True Then
MsgBox ("Já existe um arquivo com este nome!"), vbCritical, "Verifique"
txtNovoDoc.Text = ""
txtNovoDoc.SetFocus
Exit Sub
End If |
|
|
|
