Verificar se o arquivo existe no diretório

[Rafael Portal 0]

Olá gente.. Eu gostaria de saber como é que eu faço para verificar se um arquivo existe ou não em um diretório ... Tipo, eu tenho q verificar se o arquivo q o usuário esta querendo salvar tem o mesmo nome de outro arquivo dentro daquele diretório ... Alguém sabe como eu faço isso ???? Agradecido. Oks, Rafael Portal

[Screech 0]

Beleza cara...

esta função verifica se o arquivo existe...

 

Function ArquivoExiste%(snome$)

On Local Error Resume Next

 

Dim ff%

ff% = FreeFile

Open snome$ For Input As ff%

 

If Err Then

ArquivoExiste% = False

Else

ArquivoExiste% = True

End If

 

Close ff%

 

End Function

 

para chamá-la, basta usar (Exemplo em click de botão):

 

Private Sub Command1_Click()

 

successo% = ArquivoExiste%(Text1.Text)'Onde o campo texto é o path do arquivo

 

' verifica se o arquivo existe

If successo% = True Then

MsgBox "Arquivo existe"

Else

MsgBox "O arquivo não existe"

End If

End Sub

 

Espero que te ajudes

 

SCREECH http://forum.imasters.com.br/public/style_emoticons/default/devil.gif