GetFindFileName
GetFindFileName recupera o nome de arquivo do arquivo atualmente correspondido depois de uma chamada bem-sucedida pelo método FindFirstFile ou FindNextFile.
Quando FindFileClose é chamado, GetFindFileName, GetFindFileSize e GetFindFileAttributes não devem ser usados, porque isso fará o mecanismo de script falhar.
Sintaxe
GetFindFileName
Retorno
Uma cadeia de caracteres contendo o nome do arquivo.
Exemplo
Um exemplo da função RenameFile no Objeto FTPProtocolo usado para transferir arquivos entre computadores da rede.. Renomeia todos os arquivos encontrados na raiz do 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,”anônimo","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType=”diretório"
Else
FileType=”arquivo"
FileName = FTPobj.GetFindFileName
RenameFileName = “renomeado_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
Wend
End Function