첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

[VB] 파일 속성 구하기

VB 2016. 6. 1. 21:59

■ 파일 속성 구하기

----------------------------------------------------------------------------------------------------

Public Function IsReadOnlyFile(nFileAttribute As Integer) As Boolean

 

    IsReadOnlyFile = (nFileAttribute And 1) > 0 ' 읽기 전용 파일

 

End Function

 

Public Function IsHiddenFile(nFileAttribute As Integer) As Boolean

 

    IsHiddenFile = (nFileAttribute And 2) > 0 ' 숨김 파일

 

End Function

 

Public Function IsSystemFile(nFileAttribute As Integer) As Boolean

 

    IsSystemFile = (nFileAttribute And 4) > 0 ' 시스템 파일

 

End Function

 

Public Function IsDiskVolume(nFileAttribute As Integer) As Boolean

 

    IsDiskVolume = (nFileAttribute And 8) > 0 ' 디스크 볼륨

 

End Function

 

 

Public Function IsDirectory(nFileAttribute As Integer) As Boolean

 

    IsDirectory = (nFileAttribute And 16) > 0 ' 디렉토리

 

End Function

 

Public Function IsArchiveFile(nFileAttribute As Integer) As Boolean

 

    IsArchiveFile = (nFileAttribute And 32) > 0 ' 아카이브 파일

 

End Function

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요