GetFindFileAttributes
GetFindFileAttributes recupera il file Attributes 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
GetFindFileAttributes
Restituisce
File Attributes del file con corrispondenza. Questi son gli attributi del membro dwFileAttributes nella struttura definita WIN32 WIN32_FIND_DATA. Le maschere di bit vengono definite come costanti FILE_ATTRUTE_*. Ad es. FILE_ATTRUTE_DIRECTORY viene definita come 0x10.
| Maschere di bit | Definizione |
|---|---|
| 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 |
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"
End If
echo "File: " + FTPobj.GetFindFileName + " dimensione: " + CStr(FTPobj.GetFindFileSize) + " tipo byte: " + FileType
Found=FTPobj.FindNextFile
Wend
End Function