コンパイル自動化メモ

'' ' 関数名： cmpl ' '' Function cmpl()

Dim ObjFs                                                   '* ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ                 *'
Dim ObjTxt                                                  '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄ                     *'
Dim RgExp                                                   '* 正規表現置換ｵﾌﾞｼﾞｪｸﾄ               *'
Dim McrPth                                                  '* macroﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ         *'
Dim MkFlPth                                                 '* *cmpl*までの絶対ﾊﾟｽ           *'
Dim LdPth                                                   '* *総合*ﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ          *'
Dim LstYenPos                                               '* ﾊﾟｽ末尾の\位置                    *'
Dim YenNum                                                  '* ﾊﾟｽ内の\個数                       *'
Dim RplcCnt                                                 '* *cmpl*特定ﾃｰﾌﾞﾙｶｳﾝﾀ          *'
Dim UsrNm                                                   '* ﾕｰｻﾞｱｶｳﾝﾄ名                       *'
Dim cmd                                                     '* ｺﾏﾝﾄﾞ                          *'

'************************************************************************************************'
'* Step1： 前準備                                                                               *'
'************************************************************************************************'
UsrNm = CreateObject("WScript.Network").UserName            '* ﾕｰｻﾞｱｶｳﾝﾄ名取得                 *'
McrPth =        "C:\Users\" + UsrNm _
            +   "\AppData\Roaming\sakura\macro\"            '* macroﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ取得       *'
Set ObjFs = CreateObject("Scripting.FileSystemObject")      '* ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ作成               *'
Set ObjTxt = ObjFs.OpenTextFile(McrPth +"*共通*.vbs")         '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄ作成                   *'
Set RgExp = New RegExp                                      '* 置換ｵﾌﾞｼﾞｪｸﾄ作成                 *'
ExecuteGlobal ObjTxt.ReadAll()                              '* *共通*.vbsをｲﾝｸﾙｰﾄﾞ                 *'
ObjTxt.Close                                                '* *共通*.vbsを閉じる                 *'

'************************************************************************************************'
'* Step2： *cmpl*までの絶対ﾊﾟｽ取得                                                            *'
'************************************************************************************************'
MkFlPth = GetFilename                                       '* ｱｸﾃｨﾌﾞﾌｧｲﾙまでの絶対ﾊﾟｽ取得     *'

for RplcCnt = 0 to UBound(MKTbl) step 2                     '* **cmpl**ﾊﾟｽ探索                  *'
    RgExp.Pattern = MKTbl(RplcCnt)                          '* 置換ﾊﾟﾀｰﾝｾｯﾄ                       *'

    If RgExp.Test(MkFlPth) Then                             '* 置換ﾊﾟﾀｰﾝとﾏｯﾁした時               *'
        MkFlPth = RgExp.Replace _
                    (MkFlPth, MKTbl(RplcCnt+ 1))            '* **cmpl**までの絶対ﾊﾟｽ取得       *'
        Exit For                                            '* Step2処理終了                    *'
    End If
next

'************************************************************************************************'
'* Step3： *cmplL*ﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ取得                                                            *'
'************************************************************************************************'
LdPth = GetFilename                                         '* ｱｸﾃｨﾌﾞﾌｧｲﾙまでの絶対ﾊﾟｽ取得     *'

Do                                                          '* *cmplL*ﾌｫﾙﾀﾞ発見するまでﾊﾟｽ末尾削除    *'
    LstYenPos = InstrRev(LdPth, "\")                        '* ﾊﾟｽ末尾の\位置を取得               *'
    LdPth = Left(LdPth, LstYenPos - 1)                      '* ﾊﾟｽ末尾削除                        *'
    YenNum = Len(LdPth) - Len(Replace(LdPth, "\", ""))      '* ﾊﾟｽ内の\個数取得                 *'

    If ObjFs.FolderExists(LdPth + "\*cmplL*") = True Then       '* *総合*ﾌｫﾙﾀﾞが見つかった場合      *'
        LdPth = LdPth + "\*cmplL*"                              '* *総合*ﾌｫﾙﾀﾞまでの絶対ﾊﾟｽ取得        *'
        Exit Do                                             '* Step3処理終了                    *'
    End If

    If YenNum < 1 Then                                      '* \の個数が5個未満になった場合        *'
        MsgBox "*cmplL*フォルダが見つかりませんでした"           '* ｴﾗｰ出力                          *'
        Exit Function                                       '* 関数終了                         *'
    End If
Loop

'************************************************************************************************'
'* Step4： ｵﾌﾞｼﾞｪｸﾄ参照解除                                                                    *'
'************************************************************************************************'
Set ObjFs = Nothing                                         '* ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄへの参照解除       *'
Set ObjTxt = Nothing                                        '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄへの参照解除           *'
Set RgExp = Nothing                                         '* ﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄへの参照解除           *'

'************************************************************************************************'
'* Step5： ｺﾏﾝﾄﾞ実行                                                                           *'
'************************************************************************************************'
cmd =       "echo make in " + MkFlPth _
        +   "&cd " + MkFlPth _
        +   "&ipconfig" _
        +   "&" + McrPth +"mkInTskCnplt.bat" _
        +   "&echo make in " + LdPth _
        +   "&cd " + LdPth _
        +   "&ipconfig" _
        +   "&" + McrPth +"mkInLdCnplt.bat" _
        +   "&exit"
Editor.ExecCommand cmd                                      '* ｺﾏﾝﾄﾞ実行                        *'

End Function

cmpl