８６．ファイルの属性を変更する

＜　使用用途　＞
ファイルの属性を変更する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のSetFileAttributesを使用します
SetFileAttributes　＝＞ファイル属性を変更
　　＜引数＞
　　　　　lpExistingFileName： 元のファイル名･ディレクトリ名
　　　　　lpNewFileName： 新しいファイル名･ディレクトリ名
　　＠戻り値＠
　　　　　正常終了1

<　ＳＡＭＰＬＥ　＞
’ここではC:\Windows\Calc.exeを隠し属性に変更する処理です
'標準モジュール
Public Declare Function SetFileAttributes Lib "KERNEL32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Public Const FILE_ATTRIBUTE_ARCHIVE = &H20'アーカイブ属性
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10'ディレクトリ属性
Public Const FILE_ATTRIBUTE_HIDDEN = &H2 '隠しファイル属性
Public Const FILE_ATTRIBUTE_NORMAL = &H80 'ファイル属性を持たない
Public Const FILE_ATTRIBUTE_READONLY = &H1'読み込み専用属性
Public Const FILE_ATTRIBUTE_SYSTEM = &H4 'システムファイル属性


'ここからはフォーム内の処理です
Private Sub Command1_Click()

　Dim Ret As Long
　Dim nFile As String

　nFile ="C:\Windows\Calc.exe"

　Ret = SetFileAttributes(nFile, FILE_ATTRIBUTE_HIDDEN)

End Sub