FindFirstFile
FindFirstFile inizializza ed enumera file e directory nella directory corrente sul server FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete. remoto.
Sintassi
FindFirstFile(STRING filemask)
Dove:
Filemaskè una stringa. Generalmente è “*” per enumerare tutti i file.
Restituisce
- Booleano. Se restituisce
TRUE, significa che almeno un file sul server FTP remoto corrisponde - Il nome e la dimensione file per il primo file corrispondente possono essere recuperati utilizzando i metodi
GetFindFileName()eGetFindFileSize(). - Il metodo
FindNextFile()viene utilizzato per spostarsi al file corrispondente successivo FindFirstFilerestituiràFALSEnel caso in cui non vengano trovati file corrispondentiFindFirstFilerestituirà ancheFALSEnelle chiamate successive aFindFirstFile()se l’operazione di ricerca corrente non è stata chiusa con il metodoFindFileClose()- Se viene restituito
FALSE,FTPObject.LastErrorrestituirà il codice di errore WIN32.
Esempio
Esempio della funzione RenameFile nell’oggetto FTP. 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