FindFileClose
透過 FindFirstFile 方法搜尋與檔案遮罩相符的下一個檔案。 如果對 FindFirstFile() 的呼叫失敗，則無需呼叫該函數。
語法
FindFileClose
結果
未傳回資料。
範例
FTP用於在網路電腦之間傳輸檔的通訊協定。 物件中 FindFileClose 函數的範例。 搜尋特定的檔案，直至在根等級找到該檔案：
Function 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 exists" & cr
FTPobj.FindFileClose
Found = false
else
echo "test.zip does not exist" & cr
Found=FTPobj.FindNextFile
End If
End If
Wend
End Function