用FindFirstFile可以,不过很麻烦。
用CreateFile也可以,不过更麻烦。VB的Dir本来就很好,不用白不用。

解决方案 »

  1.   

    if dir("c:\text.txt")="" then
      msgbox "文件不存在"
    else
      msgbox "文件存在"
    end if
      

  2.   

    用 dir 当然好。
    但我想知道vb自建函数快还是api快一点?
    以下是查找文件的api函数
    Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
    参数 类型及说明 
    lpFileName String,欲搜索的文件名。可包含通配符,并可包含一个路径或相对路径名 
    lpFindFileData WIN32_FIND_DATA,这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索 
    Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long 
    根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 
    参数 类型及说明 
    hFindFile Long,由FindFirstFile函数返回的搜索句柄 
    lpFindFileData WIN32_FIND_DATA,这个结构用于装载与找到的文件有关的信息