怎样查找一个文件是否存在？

Question

我用VB写了一个程序，用open "c:\a.dat" for addend as #1 添加了一个文件，我怎么判断这个a.data 是否存在呀，而且怎样才能把这个文件隐藏呢？请大哥大姐们帮帮小弟！！在次谢过啦！！

Answer 1

Public Function FileExist(Filename As String) As Boolean  On Error GoTo NotExist
  
  Call FileLen(Filename)
  FileExist = True
  Exit Function
  
NotExist:
  
End Function

Answer 2

站第一
源文件不存在就会出错
用VB可以设置文件属性啊，，，，看看VB的文件操作

Answer 3

Dim dirstring As String
    dirstring = Dir$(c:\a.dat")
    if dirstring <> "" '存在

Answer 4

SetFileAttributes c:\a.dat, FILE_ATTRIBUTE_HIDDEN

Answer 5

引用 MS SCRIPT RUNTIME
dim filesys as new filesystemobject
if filesys.exitsfile("c:\a.dat") then 
 msgbox "存在"
endif

Answer 6

if dir("Filepath\FileName")<>"" then
    Msgbox "文件存在"
endif

Answer 7

回复人： lxcc(虫子|专注于抢分) ( ) 信誉：114  2004-11-01 13:47:00  得分: 0  
 
 
   if dir("Filepath\FileName")<>"" then
    Msgbox "文件存在"
endif
  
 
-----正解，给虫子分吧，呵呵