GetFindFileAttributes
GetFindFileAttributes ruft nach einem erfolgreichen Aufruf der Methode FindFirstFile oder FindNextFile die Dateiattribute der gegenwärtig ausgewählten Datei ab.
Wenn FindFileClose aufgerufen wird, dürfen GetFindFileName, GetFindFileSize und GetFindFileAttributes nicht verwendet werden, da das Scripting-Modul andernfalls abstürzen würde.
Syntax
GetFindFileAttributes
Rückgabewert
Dateiattribute der gegenwärtig ausgewählten Datei. Dies sind die Attribute, die im Element dwFileAttributes der WIN32-Struktur WIN32_FIND_DATA enthalten sind. Bitmasken sind als Konstanten der Form FILE_ATTRUTE_* definiert. D. h., FILE_ATTRUTE_DIRECTORY ist als 0x10 definiert.
| Bitmasken | Definition |
|---|---|
| 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 |
Beispiel
Beispiel für die RenameFile-Funktion in Verbindung mit dem FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Objekt. In diesem Beispiel werden alle Dateien umbenannt, die sich im Wurzelverzeichnis des FTP-Servers befinden:
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="Verzeichnis"
Else
FileType="Datei"
End If
echo "Datei: " + FTPobj.GetFindFileName + " Größe: " + CStr(FTPobj.GetFindFileSize) + " Byte Typ: " + FileType
Found=FTPobj.FindNextFile
Wend
End Function