AccessのVBAでフォルダを隠しフォルダに変更

2538 ワード
Microsoft365 VBA access Windows10 VBA テキストリンク

なんで隠しフォルダに？

以下のような(ﾉ∀`)ｱﾁｬｰを防ぐ為です。

  1. Accessのプログラムが使う『一時処理用フォルダー』がユーザーでも見える状態
  2. ユーザーがそのフォルダーに重要なファイルを置いちゃう
  3. フォルダーの中身全部消すプログラムが走ってデータ消失

『隠し』にしないでユーザーがアクセスできない場所にフォルダー作ればいいじゃんアゼルバイジャンなんだけどね(´・ω・`)
そういう訳にもいかない場合があるんす…。

少しでも事故を減らす為の工夫として『隠し』化します(´・ω・`)

参照設定

この記事のサンプルでは FileSystemObject クラスを使うので、 Microsoft Scripting Runtime を参照しておく必要があります。

サンプルこーど

フォルダーパスをもらってフォルダーが存在していれば隠しフォルダ設定にするだけの単純なやつ！

Public Function hide_folder(ByVal folder_path As String)

    Dim fso_ As New FileSystemObject

    If Not fso_.FolderExists(folder_path) Then
        Exit Function
    End If

    fso_.GetFolder(folder_path).Attributes = Hidden

End Function

蛇足

この程度の行数なら関数化せず、スニペットに登録しておく方向もアリです。
でも関数化しておけば『隠しにしたいフォルダが存在しなかった時はログを吐く』なんて仕様変更があった時、1箇所変えるだけで済むので、改修が楽＆変更漏れの心配無いです。

バージョン

Windows10 Pro バージョン1909 OSビルド19042.662
Access for Microsoft 365 MSO（16.0.13328.20334）32ビット