質問編集履歴
1
ソースコード、ＰＧＭ構築の背景を追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,9 +12,59 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
+
■質問追記
|
|
16
|
+
|
|
17
|
+
⇒adoR.Fields.Append "F_Name", 201 を指定しても同様にダメでした。
|
|
18
|
+
|
|
19
|
+
⇒前提としまして、このPGMはサブPGMです。親側から複数回実行されます。
|
|
20
|
+
|
|
21
|
+
arg3は親からの引数でシーケンス番号(1,2・・)を表しています。
|
|
22
|
+
|
|
23
|
+
つまり、親で\input\シーケンス番号を作成しておいて、子でsndからファイルを
|
|
24
|
+
|
|
25
|
+
取得して\input\シーケンス番号に格納します。つまりsndでファイルを昇順で取得
|
|
26
|
+
|
|
27
|
+
することができれば、格納先のシーケンス番号にも若番が入っていきます。
|
|
15
28
|
|
|
16
29
|
|
|
30
|
+
|
|
17
|
-
※
|
|
31
|
+
※※※※ソースを張りなおします※※※※
|
|
32
|
+
|
|
33
|
+
Dim fso,filefullpath
|
|
34
|
+
|
|
35
|
+
|
|
36
|
+
|
|
37
|
+
Set fso = createObject("Scripting.FileSystemObject")
|
|
38
|
+
|
|
39
|
+
filefullpath = fso.getParentFolderName(WScript.ScriptFullName)
|
|
40
|
+
|
|
41
|
+
|
|
42
|
+
|
|
43
|
+
Dim objfso, mySH,objFolder
|
|
44
|
+
|
|
45
|
+
|
|
46
|
+
|
|
47
|
+
Set mySH = CreateObject("WScript.Shell")
|
|
48
|
+
|
|
49
|
+
Set objfso = CreateObject("Scripting.FileSystemObject")
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
53
|
+
'取得元ディレクトリ
|
|
54
|
+
|
|
55
|
+
Set objFolder = objfso.GetFolder(filefullpath & "\snd")
|
|
56
|
+
|
|
57
|
+
|
|
58
|
+
|
|
59
|
+
'格納先ディレクトリ
|
|
60
|
+
|
|
61
|
+
Dim inpass : inpass = filefullpath &"\input\"& arg3 &"\"
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
Dim p: p = 0
|
|
66
|
+
|
|
67
|
+
|
|
18
68
|
|
|
19
69
|
Dim adoR
|
|
20
70
|
|
|
@@ -26,7 +76,7 @@
|
|
|
26
76
|
|
|
27
77
|
Set adoR = CreateObject("ADODB.Recordset")
|
|
28
78
|
|
|
29
|
-
adoR.Fields.Append "F_Name", 20
|
|
79
|
+
adoR.Fields.Append "F_Name", 201
|
|
30
80
|
|
|
31
81
|
adoR.Open
|
|
32
82
|
|
|
@@ -54,8 +104,18 @@
|
|
|
54
104
|
|
|
55
105
|
Do Until adoR.EOF
|
|
56
106
|
|
|
107
|
+
If p < arg1 then
|
|
108
|
+
|
|
57
|
-
objfso.MoveFile adoR.Fields(0) ,
|
|
109
|
+
objfso.MoveFile adoR.Fields(0) , inpass
|
|
110
|
+
|
|
111
|
+
p = p + 1
|
|
58
112
|
|
|
59
113
|
adoR.MoveNext
|
|
60
114
|
|
|
115
|
+
end if
|
|
116
|
+
|
|
61
117
|
Loop
|
|
118
|
+
|
|
119
|
+
|
|
120
|
+
|
|
121
|
+
adoR.Close: Set adoR = Nothing
|