FindNextFile
Ricerca il file successivo corrispondente alla maschera file specificata dal metodo FindFirstFile.
Sintassi
FindNextFile
Restituisce
- Booleano. Se restituisce
TRUE, significa che sono stati trovati più file che corrispondono alla maschera file specificata dal metodoFindFirstFile - Il nome e la dimensione file per il primo file corrispondente possono essere recuperati utilizzando i metodi
GetFindFileName()eGetFindFileSize() FindNextFilerestituiràFALSEnel caso in cui non vengano trovati file corrispondentiFindNextFiledeve essere chiamato tra una chiamata riuscita aFindFirstFile()e una chiamata aFindFileClose()- Il metodo restituirà
FALSEse chiamato all’esterno dell’ambito - Se viene restituito
FALSE,FTPObject.LastErrorrestituirà il codice di errore WIN32.
Esempio
Esempio della funzione RenameFile nell’oggetto FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete.. Rinomina tutti i file trovati nella radice del server FTP:
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"
Else
FileType="file"
FileName = FTPobj.GetFindFileName
RenameFileName = "rinominato_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo "File: " + FTPobj.GetFindFileName + " dimensione: " + CStr(FTPobj.GetFindFileSize) + " tipo byte: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function