カミュプリィの雑多なメモ

タグ: Delete

  • [言語比較]Class : クラスをつくる

    [言語比較]Class : クラスをつくる

    　Lotus Scriptのクラスは、VBScriptと異なっているところが多いです。

    Lotus Script 言語

    Class クラス名 As 元クラス　’別のクラスから引き継ぐことができます

    　’最初に実行されます
    　Sub New （変数名 As 型）．元クラス （変数名 As 型）　’値を受け取ることができます
    　End Sub

    　’最後に実行されます
    　Sub Delete （）
    　End Sub

    　Public Sub 戻り値がない関数名 （変数名 As 型）
    　End Sub

    　Public Function 戻り値がある関数名 （変数名 As 型） As 型
    　　Me.戻り値がある関数名 ＝ 戻り値　’値を返します
    　End Function

    　Public Property Set プロパティ名 As 型
    　　変数名 ＝ Me.プロパティ名　’値を受け取ります
    　End Property

    　Public Property Get プロパティ名 As 型
    　　Me.プロパティ名 ＝ 戻り値　’値を返します
    　End Property

    End Class

    　何も指定しないと Private、ByRef になります。
    　現在のクラスのなかで現在のクラスで定義された関数・プロパティ・変数を使うには、名前の先頭に Me. をつければＯＫです

    VbScript 言語

    Class クラス名　’独立したクラスとして作成します

    　’最初に実行されます
    　Sub Class_Initialize （）　’値を受け取れません
    　End Sub

    　’最後に実行されます
    　Sub Class_Terminate （）
    　End Sub

    　Sub 戻り値がない関数名 （変数名）
    　End Sub

    　Function 戻り値がある関数名 （変数名）
    　　戻り値がある関数名 ＝ 戻り値　’値を返します
    　End Function

    　Public Property Set プロパティ名　’Set はオブジェクトを受け取ります
    　　Set 変数名 ＝ プロパティ名　’値を受け取ります
    　End Property

    　Public Property Let プロパティ名　’Let はオブジェクト以外を受け取ります
    　　変数名 ＝ プロパティ名　’値を受け取ります
    　End Property

    　Public Property Get プロパティ名
    　　プロパティ名 ＝ 戻り値　’値を返します
    　End Property

    End Class

    　なにも指定しないと Public、ByRef になります。
    　現在のクラスで定義されたプロパティをつかうときに、名前の先頭に Me. をつけるときがあります

  • [Windows]古いファイルをまとめて削除

    　コンピューターのファイルには、動作記録（ログ）や破棄されなかった一時ファイル（ワーク）が含まれます。長く動いているコンピューターにはこれら多くのファイルが残ります。ほおっておくと記憶領域（ハードディスク）の多くを占めるようになるかもしれません。
    　更新日時が古いものを削除するには、次のようなWindowsバッチ（*.bat）をつくって動かします。毎月とか毎年など定期的に動かせば安心ですね！

    forfiles /P "パス" /S /D -猶予日数 /C "cmd /C if false==@isdir (echo delete @file @fdate @ftime @fsize byte & del @path)"
rem 『パス』の末尾は￥マークで終わらないこと！
rem 『猶予日数』は0から32768の範囲で指定します

    forfiles | Microsoft Docs