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
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType
Found=FTPobj.FindNextFile
Wend
End Function