一括コンパイルツール (ID:110448)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 nanashiさん、魔界さん、 ありがとうございます。 なんとか、いけたようです。 以下に、編集したPGの抜粋を載せます。 ありがとうございました。 ＊＊＊＊＊＊＊＊PG抜粋＊＊＊＊＊＊＊＊＊＊ 'SMR格納ディレクトリをセット WK_DIR = DRIVE & PATH & "\" On Error Resume Next WK_FILENAME = Dir(WK_DIR & FILE) Do While Trim$(WK_FILENAME) <> "" DoEvents '初回は無条件でコンパイル、2回目以降はexeの生成が確認されてから。 If vbCNT = 0 Or PathFileExists("D:\JAPC\HYOJUN\BIN\" & PreviouFile) <> "0" Or _ PathFileExists("D:\JAPC\HANBAI\BIN\" & PreviouFile) Or _ PathFileExists("D:\JAPC\KYUYO\BIN\" & PreviouFile) Then Form1.FILE_NAME.Caption = WK_FILENAME '生成直前で対象exeをDelete Call Kill("D:\JAPC\HYOJUN\BIN\" & _ Replace(UCase(WK_FILENAME), ".VBP", ".exe")) 'コンパイル Shell VB_PATH & " " & WK_DIR & WK_FILENAME & " " & _ "/MAKE /OUT D:\JAPC\HYOJUN\BIN\ERROR.TXT" PreviouFile = Replace(UCase(WK_FILENAME), ".VBP", ".exe") WK_FILENAME = Dir vbCNT = vbCNT + 1 End If Loop