回答編集履歴

2

追記

2017/09/01 12:13

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -10,15 +10,26 @@
10
10
  ファイル名が255文字以上の場合があるなら、
11
11
 
12
12
  ```
13
- adoR.Fields.Append "F_Name", adLongVarChar
13
+ adoR.Fields.Append "F_Name", 201
14
14
 
15
15
  ```
16
16
  255文字以内なら、
17
17
 
18
18
  ```
19
- adoR.Fields.Append "F_Name", adVarChar, 255
19
+ adoR.Fields.Append "F_Name", 200, 255
20
20
  ```
21
21
 
22
- でいいのでは。(動作未確認です。)
22
+ でいいのでは。(動作未確認です。)※VBSでは予約済み定数は使えないので数値に変更しました。
23
23
 
24
- どちらにしても第3引数(DefinedSize)はフィールドサイズなので、ファイル件数(レコード件数)とは関係ないですね。
24
+ どちらにしても第3引数(DefinedSize)はフィールドサイズなので、ファイル件数(レコード件数)とは関係ないですね。
25
+
26
+ 別案
27
+ VBSで配列をソートする方法としては、ADODB以外にも、ArrayList を使う方法があります。こちらの方も試してみては。
28
+
29
+ [実験記録 No.02 : VBSで動的配列(ArrayList)を使う](http://blog.livedoor.jp/blackcode/archives/vbscript-how-to-use-arraylist.html)
30
+
31
+ あるいは、クイックソートやバブルソートなどのアルゴリズムを使って自前でソートする関数を作成するのもありですね。
32
+
33
+ [配列を昇順または降順に並べ替える関数 - hatena chips](http://hatenachips.blog34.fc2.com/blog-entry-192.html)
34
+
35
+ ただ、提示のコードを見る限り、同じフォルダーに入れているので、ソートする必要はないように思います。

1

書式の改善

2017/09/01 12:12

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -9,11 +9,15 @@
9
9
 
10
10
  ファイル名が255文字以上の場合があるなら、
11
11
 
12
+ ```
12
13
  adoR.Fields.Append "F_Name", adLongVarChar
13
14
 
15
+ ```
14
16
  255文字以内なら、
15
17
 
18
+ ```
16
19
  adoR.Fields.Append "F_Name", adVarChar, 255
20
+ ```
17
21
 
18
22
  でいいのでは。(動作未確認です。)
19
23