| フォルダーの属性を取得及び設定・除去する (3個) (SNo.031) １．フォルダー（ディレクトリ）の属性を取得する ２．フォルダー（ディレクトリ）の現在の属性に読み取り属性を追加する ３．フォルダー（ディレクトリ）の現在の属性から読み取り属性を除去する |
|
| 使用コントロール | Button1 〜 Button3 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．フォルダー（ディレクトリ）の属性を取得する
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'ディレクトリの属性を取得する Dim myAttr As System.IO.FileAttributes Dim dirPath As String = "../../" 'ディレクトリの属性を取得する myAttr = System.IO.File.GetAttributes(dirPath) Debug.WriteLine(myAttr) '結果 Directory End Sub |
|
| ２．フォルダー（ディレクトリ）の現在の属性に読み取り属性を追加する Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click '現在の属性に読み取り属性を追加する Dim myAttr As System.IO.FileAttributes Dim dirPath As String = "../../" 'ディレクトリの属性を取得する myAttr = System.IO.File.GetAttributes(dirPath) '現在の属性に読み取り属性を追加する System.IO.File.SetAttributes(dirPath, myAttr Or System.IO.FileAttributes.ReadOnly) '結果 ReadOnly, Directory End Sub |
|
| ３．フォルダー（ディレクトリ）の現在の属性から読み取り属性を除去する Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click '現在の属性から読み取り属性を除去する Dim myAttr As System.IO.FileAttributes Dim dirPath As String = "../../" 'ディレクトリの属性を取得する myAttr = System.IO.File.GetAttributes(dirPath) '読み取り専用属性が設定されていたら If (myAttr And System.IO.FileAttributes.ReadOnly) > 0 Then '現在の属性から読み取り属性を除去する System.IO.File.SetAttributes(dirPath, myAttr Xor System.IO.FileAttributes.ReadOnly) End If '結果 Directory End Sub |
|
2004/04/26
2005/09/16
VBレスキュー(花ちゃん)
VB.NET2003 VB2005