GetFindFileName
GetFindFileName recupera el nombre de archivo del archivo coincidente actual después de una solicitud exitosa a los métodos FindFirstFile o FindNextFile.
Cuando se solicita FindFileClose, GetFindFileName, GetFindFileSize y GetFindFileAttributes no se deben utilizar debido a que esto ocasionará un error en el motor de Scripting.
Sintaxis
GetFindFileName
Devolución
Una cadena que contiene el nombre de archivo.
Ejemplo
Un ejemplo de la función RenameFile en el objeto FTPProtocolo que se utiliza para transferir archivos entre equipos de redes.. Cambia el nombre de todos los archivos hallados en la raíz del servidor 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 = "renamed_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
Wend
End Function