by マティ » 2005年11月24日(木) 19:54
以下のコードではちゃんと表示できました。
Windows2000 SP4
AB 4.11.03
ここをクリックすると、コードを表示します [ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード: 全て選択
Dim dwFileAttributes As DWord
dwFileAttributes=GetFileAttributes("const.abp")
If (dwFileAttributes And FILE_ATTRIBUTE_READONLY)=&H1 Then
MessageBox(0,"FILE_ATTRIBUTE_READONLY","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_HIDDEN)=&H2 Then
MessageBox(0,"FILE_ATTRIBUTE_HIDDEN","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_SYSTEM)=&H4 Then
MessageBox(0,"FILE_ATTRIBUTE_SYSTEM","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_ARCHIVE)=&H20 Then
MessageBox(0,"FILE_ATTRIBUTE_ARCHIVE","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_ENCRYPTED)=&H40 Then
MessageBox(0,"FILE_ATTRIBUTE_ENCRYPTED","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_NORMAL)=&H80 Then
MessageBox(0,"FILE_ATTRIBUTE_NORMAL","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_TEMPORARY)=&H100 Then
MessageBox(0,"FILE_ATTRIBUTE_TEMPORARY","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_SPARSE_FILE)=&H200 Then
MessageBox(0,"FILE_ATTRIBUTE_SPARSE_FILE","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_REPARSE_POINT)=&H400 Then
MessageBox(0,"FILE_ATTRIBUTE_REPARSE_POINT","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_COMPRESSED)=&H800 Then
MessageBox(0,"FILE_ATTRIBUTE_COMPRESSED","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_OFFLINE)=&H1000 Then
MessageBox(0,"FILE_ATTRIBUTE_OFFLINE","",MB_OK)
End If
yu0627さん、
dwFileAttributesは
DWordで定義していますよね!
以下のコードではちゃんと表示できました。
Windows2000 SP4
AB 4.11.03
[hide=ここをクリックすると、コードを表示します][code]
Dim dwFileAttributes As DWord
dwFileAttributes=GetFileAttributes("const.abp")
If (dwFileAttributes And FILE_ATTRIBUTE_READONLY)=&H1 Then
MessageBox(0,"FILE_ATTRIBUTE_READONLY","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_HIDDEN)=&H2 Then
MessageBox(0,"FILE_ATTRIBUTE_HIDDEN","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_SYSTEM)=&H4 Then
MessageBox(0,"FILE_ATTRIBUTE_SYSTEM","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_ARCHIVE)=&H20 Then
MessageBox(0,"FILE_ATTRIBUTE_ARCHIVE","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_ENCRYPTED)=&H40 Then
MessageBox(0,"FILE_ATTRIBUTE_ENCRYPTED","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_NORMAL)=&H80 Then
MessageBox(0,"FILE_ATTRIBUTE_NORMAL","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_TEMPORARY)=&H100 Then
MessageBox(0,"FILE_ATTRIBUTE_TEMPORARY","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_SPARSE_FILE)=&H200 Then
MessageBox(0,"FILE_ATTRIBUTE_SPARSE_FILE","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_REPARSE_POINT)=&H400 Then
MessageBox(0,"FILE_ATTRIBUTE_REPARSE_POINT","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_COMPRESSED)=&H800 Then
MessageBox(0,"FILE_ATTRIBUTE_COMPRESSED","",MB_OK)
End If
If (dwFileAttributes And FILE_ATTRIBUTE_OFFLINE)=&H1000 Then
MessageBox(0,"FILE_ATTRIBUTE_OFFLINE","",MB_OK)
End If
[/code][/hide]
[b]yu0627[/b]さん、[b]dwFileAttributes[/b]は[b]DWord[/b]で定義していますよね!