FindFileClose
通过 FindFirstFile 方法搜索与文件掩码匹配的下一个文件。 如果对 FindFirstFile() 的调用失败，则无需调用该函数。
语法
FindFileClose
返回结果
不返回数据。
示例
FTP用于在网络计算机之间传输文件的协议。 对象中 FindFileClose 函数的示例。 搜索特定的文件，直至在根级别找到该文件：
函数 Main
Dim FTPobj as Object
Const DIRECTORYMASK=&H10
ip = "127.0.0.1"
port = 21
cr = Chr(13) + Chr(10)
Set FTPobj = FTP.Connect (ip,port,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="directory"
Found=FTPobj.FindNextFile
Else
FileType="file"
if FTPobj.GetFindFileName = "test.zip" then
echo "test.zip 存在" & cr
FTPobj.FindFileClose
Found = false
else
echo "test.zip 不存在" & cr
Found=FTPobj.FindNextFile
End If
End If
Wend
End 函数