FindFileClose
Ricerca il file successivo corrispondente alla maschera file specificata dal metodo FindFirstFile. Non è necessario chiamare se la chiamata a FindFirstFile() ha esito negativo.
Sintassi
FindFileClose
Restituisce
Nessun dato restituito.
Esempio
Un esempio della funzione FindFileClose nell’oggetto FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete.. Ricerca un determinato file fino a quando non viene trovato nella radice:
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 esiste" & cr
FTPobj.FindFileClose
Found = false
else
echo "test.zip non esiste" & cr
Found=FTPobj.FindNextFile
End If
End If
Wend
End Function