tanakamisaki

Private Const TARGET_DILIMITER = "_ページ"
Private Const MSG_PATH_NG = "対象フォルダに対して本スクリプトを実施できません。"
Private Const MSG_SUBFOLDER_NG = "対象フォルダにサブフォルダがあるときは本スクリプトを実施できません。"

Call main

Sub main()
    Dim baseFolderPath
    Dim FSO
    Dim msg

tanakamisaki

Option Explicit

Sub test()
 
    'パスは適宜書き換えて使ってください
    
    'パスワード「abcd」でフォルダをZIP圧縮する場合
    Call zipByLhaplus("C:\Temp\テスト", "C:\Temp", "abcd")
    
    'パスワードなしでフォルダをZIP圧縮する場合

tanakamisaki

GIMP Palette
Name: Android ICS tones
Columns: 10
#
# The original version of this color palette is the color palette of Android 4.0 by Google.
# http://developer.android.com/design/style/color.html
#
 51 181 229	33B5E5
170 102 204	AA66CC
153 204   0	99CC00

tanakamisaki

Option Explicit

Private Const LIST_FILE_NAME = "targetList.txt" '移動するファイルのチェック文字リスト
Private Const OUT_FOLDER_NAME = "out"           '移動先フォルダ名

Private Const FILENAME_DELIMITER = "_"  'ファイル名をこの区切り文字で区切った時
Private Const FILENAME_CHECKINDEX = 2   '何番目の要素を対象にチェックするか（1始まりで指定）

Call main