GetFindFileAttributes
GetFindFileAttributes 在成功呼叫 FindFirstFile 或 FindNextFile 方法後擷取目前相符檔的檔案屬性。
當呼叫 FindFileClose 時，不應使用 GetFindFileName、GetFindFileSize 和 GetFindFileAttributes，因為這會造成指令碼處理引擎失敗。
語法
GetFindFileAttributes
結果
目前相符檔案的檔案屬性。 這些屬性都是 WIN32 定義的結構 WIN32_FIND_DATA 中的 dwFileAttributes 成員的屬性。位元遮罩定義為 FILE_ATTRUTE_* 常數。 即： FILE_ATTRUTE_DIRECTORY 定義為 0x10。
| 位元遮罩 | 定義 |
|---|---|
| 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 |
範例
FTP用於在網路電腦之間傳輸檔的通訊協定。 物件中的 RenameFile 功能範例。 為 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
回應 "檔案： " + FTPobj.GetFindFileName + " 大小： " + CStr(FTPobj.GetFindFileSize) + " 位元組類型： " + FileType
Found=FTPobj.FindNextFile
Wend
End Function