|
|
Postada em 17/10/2005 09:46 hs
Ola. Gostaria de uma ajuda... Como posso verificar no VB6 se um arquivo (por exemplo "c:1.txt") existe? Grato pela ajuda |
|
|
|
|
|
|
|
Postada em 17/10/2005 09:58 hs
close 1:Open "C:1.txt" For Random As 1 if lof(1)<=1 then
ArquivoExiste = False
close 1:Kill "C:1.txt" 'Pq qdo não existe ele cria um arq com o nome c/ 0 Bytes Else
ArquivoExiste = True
End If
Close ff%
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 17/10/2005 09:59 hs
Desculpe o Close ff% não existe...... |
|
|
|
|
|
Postada em 18/10/2005 07:18 hs
Esse método é meio arriscado, mas funciona. Eu uso de maneira diferente: if dim("C:xx.eee")<>"" then msgbox "arquivo existe" else msgbox "arquivo não existe" end if |
|
|
|
|
|
Postada em 18/10/2005 07:24 hs
So uma correção, Kerplunk: Não é DIM, mas DIR... If Dir(path) <> "" Then debug.print "Arquivo Existe" Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 18/10/2005 08:24 hs
Eu utilizo assim: On Error Resume Next
FileLen (App.Path & "arquivo.extensão")
If Err Then
MsgBox "Arquivo não existe" Exit Sub
endif MsgBox "Arquivo Existe" On Error GoTo 0 T+ |
|
|
|
