自分の真ん中にいるという事

こんばんは、まっさんです。

御覧頂きありがとうございます。

今回はスピリチュアル的なお話です。

スピリチュアルという言葉の上で踊りまくっていた時期がようやく過ぎていったなぁと感じるこの頃に

なりました。

自分という軸に立つことについて想えるようになったので、少し書いていきたいと思います。

2009年位から、無性に水晶が気になって、色々お店を転々とめぐりながら、情報を集めているうちに
スピリチュアル（精神的）な活動をしておられる方の元に行くようになりました。
当時従事していたコンピュータの仕事や仲間との乖離も始まっていたと思います。

心に蓋をするのを続けた結果、體をむしばみ、更に精神的にも病んでいくとは

思いもしませんでした。

およそその3年後の2012年の冬至には、マヤの遺跡めぐりのツアーに参加して、その地で野垂れてもいいやと片道切符で行ったりも

しました。なんとか日本に戻るも、その数か月後には会社を辞め、あちこち、フラフラ彷徨ったことは別の時にでもお話したいと思います。
 

その後、基本オタク要素持ちの探求好きな性格は、なんでこうなったんだ！？と
體と心について興味が出てきて、あっちへフラフラ、そっちへフラフラとセミナーやワークショップに参加して、
そして今に至るというのが大きな流れです。

字に書くと簡単ですね。
 

思い返すと精神的に幼かった当時の自分には、当時、見える世界がとても新しく綺麗な気がしておりました。
今まで会った事もない方と会えましたから。

そのプロセスの中で、自分がコミュ障だったと気づくのは色々驚きました。

今日はこの辺までで

結構振り返りながら書くと疲れますね。

それでは御覧いただきありがとうございました。

またのお越しをお待ちしております。

ワークパンツ

こんばんは、まっさんです

ご覧頂きありがとうございます

今回の記事は作業着？のパンツです

ポケットが沢山あるので買っているのですが、

秋口から暑くて我慢出来なくなる初夏まで使ってます

保温と防風と排熱がいい感じに考慮されてるので色々なシーンで使っています

ワークマンで毎年販売されるので、年ごとに１着増えていく予定のものです

デザインはひとまずおいといて

沢山ポケット欲しい方向けです

有りすぎてどこに何を入れたか忘れる事もあるかもしれません

それではご覧頂きありがとうございました

またのお越しをお待ちしております

windowsコマンド robocopy

こんばんは、まっさんです

ご覧頂きありがとうございます。

本日の記事はWindowsコマンド　robcopy

最近は、作業の自動化について、コツコツ勉強しています。

なんとなく目にしていた「robocopy」コマンド　

以下記事見ていたら便利そうですね

Windowsの「robocopy」コマンドでフォルダをバックアップ／同期させる

早速コマンドプロンプトを起動してヘルプを参照

オプション結構ありますね。

弄り甲斐がありそうです。

確認したらWindows7位から標準実装ですかね。

Powershellも新たに必要なものから学ぶと後々便利かなと思いました。

ファイルの世代管理はさすがに別機能みたいですね

C:\Users\user>robocopy /?

-------------------------------------------------------------------------------
   ROBOCOPY     ::     Windows の堅牢性の高いファイル コピー
-------------------------------------------------------------------------------

  開始: 2021年3月11日 20:51:41
              使用法:: ROBOCOPY コピー元 コピー先 [ファイル [ファイル]...]
                       [オプション]

           コピー元 :: コピー元ディレクトリ (ドライブ:\パスまたは \\サーバー
                       \共有\パス)。
           コピー先 :: コピー先ディレクトリ (ドライブ:\パスまたは \\サーバー
                       \共有\パス)。
           ファイル :: コピーするファイル (名前/ワイルドカード: 既定値は「*.*」
                       です)

::
:: コピー オプション:
::
                 /S :: サブディレクトリをコピーしますが、空のディレクトリはコピ
                       ーしません。
                 /E :: 空のディレクトリを含むサブディレクトリをコピーします。
             /LEV:n :: コピー元ディレクトリ ツリーの上位 n レベルのみをコピーし
                       ます。

                 /Z :: 再起動可能モードでファイルをコピーします。
                 /B :: バックアップ モードでファイルをコピーします。
                /ZB :: 再起動可能モードを使用します。アクセスが拒否された場合、
                       バックアップ モードを使用します。
                 /J :: バッファーなし I/O を使用してコピーします (大きなファイル
                       で推奨)。
            /EFSRAW :: 暗号化されたすべてのファイルを EFS RAW モードでコピーし
                       ます。

 /COPY:コピーフラグ :: ファイルにコピーする情報 (既定値は /COPY:DAT)。
                       (copyflags : D=データ、A=属性、T=タイムスタンプ、X=代替データ ストリームをスキップ)。
                       (S= セキュリティ =NTFS ACL、O= 所有者情報、U= 監査情報)。


               /SEC :: セキュリティと共にファイルをコピーします (/COPY:DATS と
                       同等)。
           /COPYALL :: ファイル情報をすべてコピーします (/COPY:DATSOU と同等)。
            /NOCOPY :: ファイル情報をコピーしません (/PURGE と共に使用すると便
                       利)。
            /SECFIX :: スキップしたファイルも含むすべてのファイルのファイル セ
                       キュリティを修正します。
            /TIMFIX :: スキップしたファイルも含むすべてのファイルのファイル時刻
                       を修正します。

             /PURGE :: 既にコピー元に存在しないコピー先のファイル/ディレクトリ
                       を削除します。
               /MIR :: ディレクトリ ツリーをミラー化します (/E および /PURGE と
                       同等)。

               /MOV :: ファイルを移動します (コピー後にコピー元から削除)。
              /MOVE :: ファイルとディレクトリを移動します (コピー後にコピー元か
                       ら削除)。

     /A+:[RASHCNET] :: コピーされたファイルに指定の属性を追加します。
     /A-:[RASHCNET] :: コピーされたファイルから指定の属性を削除します。

            /CREATE :: ディレクトリ ツリーと長さ 0 のファイルのみを作成します。
               /FAT :: 8.3 FAT ファイル名のみを使用してコピー先ファイルを作成し
                       ます。
               /256 :: 256 文字を超える非常に長いパスのサポートをオフにします。

             /MON:n :: コピー元を監視し、n 回を超える変更があった場合に再度実行
                       します。
             /MOT:m :: コピー元を監視し、m 分後に変更があった場合に再度実行
                       します。

      /RH:hhmm-hhmm :: 実行時間 - 新しいコピーを開始できる時刻です。
                /PF :: 実行時間をファイルごと (パスごとではない) に確認します。

             /IPG:n :: 低速回線で帯域幅を解放するためのパケット間ギャップ (ミリ
                       秒)。

                /SJ :: 接合のターゲットとしてではなく接合として Junctions をコピーします。
                /SL:: リンクのターゲットとしてではなくリンクとしてシンボリック リンクをコピーします。

            /MT[:n] :: n 個のスレッドのマルチスレッド コピーを実行します (既定値 8)。
                       n は 1 から 128 までの値である必要があります。
                       このオプションは、/IPG および /EFSRAW オプションと互換性がありません。
                       パフォーマンス向上のため、/LOG オプションを使用して出力をリダイレクトします。

/DCOPY:コピーフラグ :: ディレクトリにコピーする情報 (既定値は /DCOPY:DA)。
                       (copyflags : D=データ、A=属性、T=タイムスタンプ、E=EA、X=代替データ ストリームをスキップ)。

           /NODCOPY :: ディレクトリ情報をコピーしません (既定では /DCOPY:DA が実行されます)。

         /NOOFFLOAD :: Windows のオフロードをコピーするメカニズムを使用せずに、
                       ファイルをコピーします。

          /COMPRESS :: ファイル転送中にネットワーク圧縮を要求します (適用可能な場合)。

::
:: ファイル選択オプション:
::
                 /A :: アーカイブ属性が設定されているファイルのみをコピーしま
                       す。
                 /M :: アーカイブ属性のあるファイルのみをコピーし、リセットしま
                       す。
    /IA:[RASHCNETO] :: 指定されたいずれかの属性が設定されているファイルのみを含
                       みます。
    /XA:[RASHCNETO] :: 指定されたいずれかの属性が設定されているファイルを除外し
                       ます。

/XF file [ファイル]... ::
                       指定された名前/パス/ワイルドカードに一致するファイルを
                       除外します。
/XD dir [ディレクトリ]... ::
                       指定された名前/パスに一致するディレクトリを除外します。

                /XC :: 変更されたファイルを除外します。
                /XN :: 新しいファイルを除外します。
                /XO :: 古いファイルを除外します。
                /XX :: コピー先にだけ存在するファイルとディレクトリを除外し
                       ます。
                /XL :: コピー元にだけ存在するファイルとディレクトリを除外し
                       ます。
                /IS :: 同一ファイルを含みます。
                /IT :: 異常なファイルを含めます。

             /MAX:n :: 最大ファイル サイズ - n バイトより大きいファイルを除外し
                       ます。
             /MIN:n :: 最小ファイル サイズ - n バイトより小さいファイルを除外し
                       ます。

          /MAXAGE:n :: 最長ファイル有効期間 - n 日より古いファイルを除外します。
          /MINAGE:n :: 最短ファイル有効期間 - n 日より新しいファイルを除外しま
                       す。
          /MAXLAD:n :: 最大最終アクセス日 - n で指定する値以後に使用していない
                       ファイルを除外します。
          /MINLAD:n :: 最小最終アクセス日 - n で指定する値以後に使用されたファ
                       イルを除外します。
                       (n < 1900 の場合、n = n 日です。それ以外は、n = YYYYMMDD
                       の日付です)。

               /FFT :: FAT ファイル時間 (2 秒の粒度) を想定します。
               /DST :: 1 時間の DST 時間差を補正します。

                /XJ:: シンボリック リンク (ファイルとディレクトリの両方) と接合ポイントを除外します。
               /XJD:: ディレクトリのシンボリック リンクと接合ポイントを除外します。
               /XJF :: ファイルのシンボリック リンクを除外します。

                /IM :: 変更されたファイルを含めます (変更日時が異なる)。
::
:: 再試行オプション:
::
               /R:n :: 失敗したコピーに対する再試行数: 既定値は 1,000,000。
               /W:n :: 再試行と再試行の間の待機時間: 既定値は、30 秒です。

               /REG :: /既定の設定としてレジストリに R:n と /W:n を保存します。

               /TBD :: 共有名が定義されるのを待ちます (再試行エラー 67)。

               /LFSM :: 空き領域不足モードで動作し、コピーの一時停止と再開を有効にします (「注釈」を参照)。

               /LFSM:n[KMG] :: 下限サイズを n [K:kilo,M:mega,G:giga] バイトで指定した /LFSM。

::
:: ログ オプション:
::
                 /L :: リストのみ - いずれのファイルにも、コピー、タイムスタン
                       プの追加、または削除を実施しません。
                 /X :: 選択されたファイルのみではなく、余分なファイルをすべて報
                       告します。
                 /V :: スキップされたファイルを示す詳細出力を作成します。
                /TS :: 出力にコピー元ファイルのタイム スタンプを含めます。
                /FP :: 出力にファイルの完全なパス名を含めます。
             /BYTES :: サイズをバイトで出力します。

                /NS :: サイズなし - ファイル サイズをログに記録しません。
                /NC :: クラスなし - ファイル クラスをログに記録しません。
               /NFL :: ファイル リストなし - ファイル名をログに記録しません。
               /NDL :: ディレクトリなし - ディレクトリ名をログに記録しません。

                /NP :: 進行状況なし - コピーの完了率を表示しません。
               /ETA :: コピーするファイルの推定完了時刻を表示します。

      /LOG:ファイル :: ログ ファイルに状態を出力します (既存のログを上書きしま
                       す)。
     /LOG+:ファイル :: ログ ファイルに状態を出力します (既存のログ ファイルに
                       追加します)。

   /UNILOG:ファイル :: ログ ファイルに UNICODE で状態を出力します (既存のログを
                       上書きします)。
  /UNILOG+:ファイル :: ログ ファイルに UNICODE で状態を出力します (既存のログに
                       追加します)。

               /TEE :: コンソール ウィンドウとログ ファイルに出力します。

               /NJH :: ジョブ ヘッダーがありません。
               /NJS :: ジョブ要約がありません。

           /UNICODE :: 状態を UNICODE で出力します。

::
:: ジョブ オプション:
::
      /JOB:ジョブ名 :: 名前の付いたジョブ ファイルからパラメーターを取得します。
     /SAVE:ジョブ名 :: 名前の付いたジョブ ファイルにパラメーターを保存します。
              /QUIT :: コマンド ラインの処理後に終了します (パラメーターの表示の
                       ため)。
              /NOSD :: コピー元ディレクトリを指定しません。
              /NODD :: コピー先ディレクトリを指定しません。
                /IF :: 後続のファイルを含みます。

::
:: 注釈 :
::
       ボリュームのルート ディレクトリに対して /PURGE または /MIR を使用すると、これまでは、
       robocopy は要求された操作をシステム ボリューム情報ディレクトリ内のファイル
       にも適用していました。この動作は変更されました。
       どちらかを指定すると、robocopy はその名前を持つファイルまたはディレクトリを
       (コピー セッションの最上位レベルのソースと宛先ディレクトリで) スキップします。

       変更されたファイルの分類は、コピー元とコピー先両方の
       ファイル システムが変更タイムスタンプ (NTFS など) をサポートしていて、
       コピー元とコピー先のファイルの変更日時が異なり、しかし
       それ以外は同じ場合に適用されます。これらのファイルは既定ではコピーされません。/IM を指定して、
       それらを含めます。

       /DCOPY:E フラグは、拡張属性コピーを
       ディレクトリに対して試行することを要求します。現時点では robocopy が継続されます
       (ディレクトリの EA をコピーできなかった場合)。このフラグは
       /COPYALL 内。

       /LFSM を使用することで、robocopy に '空き領域不足モード' での動作を要求します。
       そのモードでは、次の場合に robocopy が一時停止します。すなわち、ファイルのコピーによって
       コピー先ボリュームの空き領域が '下限' 値を下回る場合です。この値は
       フラグの LFSM:n[KMG] 形式によって明示的に指定できます。
       /LFSM が明示的な下限値なしで指定されている場合、下限は
       コピー先ボリュームのサイズの 10% に設定されます。
       空き領域不足モードは、/MT、/EFSRAW、/B、および/ZB と互換性がありません。

複数台管理している会社様のタスクスケジューラに組み込んでおきたいナイスなコマンドでした。

それでは、ご覧頂きありがとうございました。
またのお越しをお待ちしております。

AccessのVBAプロシージャについて

こんばんは、まっさんです

ご覧頂きありがとうございます。

本日の記事はデータベースAccessのプロシージャによるデータベースバックアップです。

元々データベースのバックアップは組み込まれていましたが、改修にあたり

年月日時分の名前を付与してバックアップするようにしました。

データベース終了の旅にデータベースがファイルが増えるのですが、
それとメッセージボックスでハードディスクの容量チェックも入れて

暫く様子みることにしました。

あちこちネット上のスクリプトを参照したり

VisualBasicのドキュメント参照したり結構時間がかかりました。
OSのバージョンやOffice（Access）のバージョンで動きが変化するので
開発環境はVirtualで欲しいところです

予備ハードを揃えたいところですが、なかなか厳しいのが実情ですので
OSライセンス、Officeライセンスは費用として考慮が必要ですね。
 

Visual Basic のドキュメント - はじめに、チュートリアル、リファレンス。

以下に記録も残しておきます

Option Compare Database
'------------------------------------------------------------
' BACKUP
'
'------------------------------------------------------------
Function BACKUP()

'変数の宣言
    Dim FSO As Object
    Dim C_Total, C_Free, D_Total, D_Free As Long
    Dim strNameMoto As String
    Dim strNameCopy As String
    Dim strPath As String
    Dim strDailybackupDir As String
    Dim strDailybackupPath As String
    Dim intMsg As Integer
    
    strDailybackupDir = "\dailybackup\"     'バックアップディレクトリの名前
    strPath = CurrentProject.Path & "\"    '現在のDBの場所
    strDailybackupPath = CurrentProject.Path & strDailybackupDir    'デイリーバックアップのDBの場所
    
    strNameMoto = CurrentProject.Name    '現在のDBのファイル名
    strNameCopy = Left(strNameMoto, Len(strNameMoto) - 4) & "_" & Format(Now, "yyyymmddhhnn") & ".MDB"    'コピーするDBのファイル名を作成
    With CreateObject("Scripting.FileSystemObject")

        'FileSystemObjectを作成
        Set FSO = CreateObject("Scripting.FileSystemObject")
    
        With FSO.GetDrive("C")
        'CドライブをDriveオブジェクトとして取得し処理実行
        C_Total = Format(.TotalSize / 1024 / 1024 / 1024, "#,###")
        C_Free = Format(.FreeSpace / 1024 / 1024 / 1024, "#,###")
        End With
    
        'FileSystemObjectに用意されている「CopyFile」を使用して複製
        'FSO.CopyFile CurrentProject.FullName, "C:\システム名\アクセスファイル名.mdb"
    
        '明示的にメモリを解放
        Set FSO = Nothing
    
    'バックアップ作成
    .CopyFile strPath & strNameMoto, strDailybackupPath & strNameCopy
    
    'メッセージボックスによる報告
    MsgBox " バックアップフォルダー：" & strDailybackupPath & vbCrLf & " ファイル名：" & strNameCopy & vbCrLf & vbCrLf & Format(Now, "yyyy/mm/dd hh:nn") & " バックアップ完了！"
    MsgBox " Cドライブの容量：" & C_Total & "GB" & vbCrLf & " Cドライブの空き容量：" & C_Free & "GB"
    
    End With
    
End Function

ご覧頂きありがとうございました。 またのお越しをお待ちしております。

Accessデータベース

おはようございます。まっさんです。

ご覧いただきありがとうございます。

今回の記事はMicrosft Accessです。

ここ数日、ひたすらAccessデータベースをいじっております。

プログラム部分も相応にありますので、頭の体操にちょうど良い感じです。

しばらく取り組んで、頭がボーっとしてきたら、仮眠をとってまた再開という流れでやっているので

体内時計がすこーしへんな感じだったりします。

馴染みのない関数など現れるとインターネット検索しては、トライ＆エラーですが、何故だか楽しかったりします。

既存のテーブルやクエリ、マクロをひたすら解析しております。

ここ数日は、データベースのバックアップが出きてない部分の確認と調整です。

元々作成されていたバックアップマクロが環境の変更（OS、ハードウェア構成）に伴い

正常に動作しないようです。

直近でも2か月ほどバックアップとっていなかったようで、データ打ち直しを考えるとぞっとします。

修正して、任意のフォルダに、ファイル名＋年月日.MDBに出力するようにしたので一安心です。

もうすぐ日が空けそうです。かなり眠くなってきたのでいったんおやすみです。

最後まで、ご連頂きありがとうございました。

またのお越しをお待ちしております。