VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 フォルダー関係のメニュー
1.フォルダー(ディレクトリ)の属性を取得及び設定・除去する
2.フォルダー(ディレクトリ)のタイムスタンプを取得及び設定する
3.フォルダーの作成・有無の確認及びコピー・移動・削除・フォルダー名の変更
4.フォルダー(ディレクトリ)に関するパス操作色々
5.システムの特別なフォルダーのフォルダーパスを取得
6.指定フォルダー以下のサブフォルダー数を取得及びフォルダー名を列挙
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のフォルダーに関するサンプル


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.ディレクトリの現在の属性から読み取り属性を除去する




このページのトップへ移動します。