GetFindFileName
GetFindFileName recupera il nome del file con corrispondenza dopo una chiamata riuscita ai metodi FindFirstFile o FindNextFile.
Quando viene chiamato, FindFileClose, GetFindFileName, GetFindFileSize e GetFindFileAttributes non devono essere utilizzati poiché causerebbero l’esito negativo del motore di scripting.
Sintassi
GetFindFileName
Restituisce
Una stringa contenente il nome del file.
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
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
Wend
End Function