|
|
Postada em 17/06/2004 10:07 hs
É o seguinte pessoal, preciso verificar se o arquivo existe ou não... até hoje sempre usei a função DIR, só que como vocês sabem, os usuário possuem o 'poder' de descobir erros aonde a gente menos possa imaginar. Está acontecendo o seguinte, quando eu uso a função dir com o seguinte endereço "c:teste.txt" e o arquivo não existe, ela me retorna vazio, beleza, quando eu coloco o seguinte endereço "d:teste.txt" (drive de CD com CD) e o arquivo não existe, também volta vazio, beleza, agora vem a bucha... quando eu coloco o mesmo endereço anterior, só que sem nenhum CD, ela não retorna o nome do arquivo e também não retorna vazio, ocorre ERRO: Run-time error '52': Bad file name or number. Concluindo, quando eu uso esta função com o endereço se referindo a algum drive que existe, mas que esteja sem mídia, dá erro. Bom, coloquei tudo isto para que outras pessoa não precisem passar pelo que eu passei, e se passar, já saibam o porquê. Agora vem a minha pergunta, de que outra forma eu posso ficar sabendo se determinado arquivo existe ou não? Desde já, obrigado. |
|
TÓPICO EDITADO
|
|
|
|
|
|
Jefferson
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 17/06/2004 10:55 hs
Onde a variavel procura é um TextBox. Nele você digita o caminho desejado. Exemplo: procura = "C:DOCUMENTOCARTA.DOC" arq = dir(procura) id arq <> "" then msgbx "Arquivo encontrado!",information,"Atenção" else msgbox "Arquivo não encontrado!", information,"Atenção" endif |
|
|
|
cajose
|
MACEIO
AL - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/06/2004 10:58 hs
José Carlos Vector
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/06/2004 10:58 hs
Criei uma funcao e coloquei em um modulo: Function existe(arquivo As String) As Boolean
existe = Not (Dir(arquivo) = "")
End Function E no form eu chamo assim: If Not existe("C:AUTORIZADO.MDB") Then
MsgBox "ATENCAO: Arquivo nao encontrado..."
Exit Sub
End If
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 17/06/2004 11:37 hs
Jefferson e Rochª, eu acho que não fui claro, quando você tenta usar a função DIR apondando para algum drive que existe mas que esteja sem mídia, dá erro na função.... Ex.: d:teste.txt ou a:teste.txt Se existir alguma mídia nestes drives no momento em que você executa a função, ela retorna Empty ou Teste.Txt certo? Agora se não haver mídia dá ERRO, tentem para vocês verem, no endereço do arquivo, (supondo que o seu drive de CD seja o D:) indiquem D:Teste.txt e depois me falem.... a própósito, primeiro tentam com alguma mídia dentro do CD, depois tentem sem nenhuma mídia. ok? |
|
|
|
|
|
Postada em 17/06/2004 11:49 hs
Valeu Cajose, funcionou perfeitamente.... vou substituir o meu sistema inteiro substituindo o DIR.... valeu... |
|
|
|
|
