回答編集履歴
1
追記
test
CHANGED
|
@@ -5,3 +5,41 @@
|
|
|
5
5
|
|
|
6
6
|
|
|
7
7
|
参考になりませんか
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
http://rururublog.sblo.jp/article/41647067.html
|
|
14
|
+
|
|
15
|
+
より引用
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
VBScriptでZIPファイル解凍
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
Dim ZipFile, ExtractTo, fso, objShell, FilesInZip, objFolder
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
Const FOF_SILENT = &H04 '進捗ダイアログを表示しない。
|
|
28
|
+
|
|
29
|
+
Const FOF_RENAMEONCOLLISION = &H08 'ファイルやフォルダ名が重複するときは「コピー ～ 」のようなファイル名にリネームする。
|
|
30
|
+
|
|
31
|
+
Const FOF_NOCONFIRMATION = &H10 '上書き確認ダイアログを表示しない（[すべて上書き]と同じ）。
|
|
32
|
+
|
|
33
|
+
Const FOF_ALLOWUNDO = &H40 '操作の取り消し（[編集]-[元に戻す]や{ctrl}+{z}）を有効にする。
|
|
34
|
+
|
|
35
|
+
Const FOF_FILESONLY = &H80 'ワイルドカードが指定された場合のみ実行する。
|
|
36
|
+
|
|
37
|
+
Const FOF_SIMPLEPROGRESS = &H100 '進捗ダイアログは表示するがファイル名は表示しない。
|
|
38
|
+
|
|
39
|
+
Const FOF_NOCONFIRMMKDIR = &H200 'フォルダ作成確認ダイアログを表示しない（自動で作成）。
|
|
40
|
+
|
|
41
|
+
Const FOF_NOERRORUI = &H400 'コピーや移動ができなかった場合の実行時エラーを発生させない。
|
|
42
|
+
|
|
43
|
+
'ただし、対象のファイルを飛ばして処理を続けるわけではないことに注意。
|
|
44
|
+
|
|
45
|
+
Const FOF_NORECURSION = &H1000 'サブフォルダ内のファイルはコピーしない（ただし、フォルダは作成される）。
|