GetFindFileAttributes
GetFindFileAttributes recupera os atributos 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
GetFindFileAttributes
Retorno
Atributos do arquivo atualmente correspondido. São atributos do membro de dwFileAttributes
na estrutura definida de WIN32, WIN32_FIND_DATA. Máscaras de bit são definidas como constantes de FILE_ATTRUTE_*
. Ou seja: FILE_ATTRUTE_DIRECTORY
é definido como 0x10
.
Máscaras de bit | Definição |
---|---|
FILE_ATTRIBUTE_READONLY |
&H1 |
FILE_ATTRIBUTE_HIDDEN |
&H2 |
FILE_ATTRIBUTE_SYSTEM |
&H4 |
FILE_ATTRIBUTE_DIRECTORY |
&H10 |
FILE_ATTRIBUTE_ARCHIVE |
&H20 |
FILE_ATTRIBUTE_DEVICE |
&H40 |
FILE_ATTRIBUTE_NORMAL |
&H80 |
FILE_ATTRIBUTE_TEMPORARY |
&H100 |
FILE_ATTRIBUTE_SPARSE_FILE |
&H200 |
FILE_ATTRIBUTE_REPARSE_POINT |
&H400 |
FILE_ATTRIBUTE_COMPRESSED |
&H800 |
FILE_ATTRIBUTE_OFFLINE |
&H1000 |
FILE_ATTRIBUTE_NOT_CONTENT_INDEXED |
&H2000 |
FILE_ATTRIBUTE_ENCRYPTED |
&H4000 |
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"
End If
echo “Arquivo: " + FTPobj.GetFindFileName + " tamanho: " + CStr(FTPobj.GetFindFileSize) + " tipo bytes: " + FileType
Found=FTPobj.FindNextFile
Wend
End Function