if dir("c:\text.txt")="" then msgbox "文件不存在" else msgbox "文件存在" end if
用 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,这个结构用于装载与找到的文件有关的信息
msgbox "文件不存在"
else
msgbox "文件存在"
end if
但我想知道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,这个结构用于装载与找到的文件有关的信息