1.フォルダー(ディレクトリ)の属性を取得及び設定・除去する(35_Fld_01) (旧、SampleNo.031) |
1.フォルダーの属性を取得する 2.フォルダーの現在の属性に読み取り属性を追加する 3.フォルダーの現在の属性から読み取り属性を除去する 4. 5. 6. |
下記プログラムコードに関する補足・注意事項 動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86 Option :[Compare Text] [Explicit On] [Infer On] [Strict On] Imports :追加なし 参照設定:追加なし その他 : : このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
1.フォルダーの属性を取得する |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'フォルダーの属性を取得する Dim myAttr As System.IO.FileAttributes Dim dirPath As String = "../../../" 'フォルダーの属性を取得する myAttr = System.IO.File.GetAttributes(dirPath) Debug.WriteLine(myAttr) '結果 Directory MessageBox.Show(myAttr.ToString) End Sub |
2.フォルダーの現在の属性に読み取り属性を追加する |
Private Sub Button2_Click(sender As Object, e As 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) '結果を確認する為に再度取得 myAttr = System.IO.File.GetAttributes(dirPath) Debug.WriteLine(myAttr) '結果 ReadOnly, Directory MessageBox.Show(myAttr.ToString) End Sub |
3.フォルダーの現在の属性から読み取り属性を除去する |
Private Sub Button3_Click(sender As Object, e As 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 '結果を確認する為に再度取得 myAttr = System.IO.File.GetAttributes(dirPath) Debug.WriteLine(myAttr) '結果 Directory MessageBox.Show(myAttr.ToString) End Sub |
4. |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |
1.ディレクトリの属性を取得する 2.ディレクトリの現在の属性に読み取り属性を追加する 3.ディレクトリの現在の属性から読み取り属性を除去する |