サンプルコードで学ぶASP » Folders コレクション

Add

admin — Mon, 31 Aug 2009 02:18:29 +0000

(PWS4 IIS4 IIS5)
Add — Folders コレクションに新しい Folder オブジェクトを追加します。

構文

object.Add (folderName)

パラメータ

object: Folders コレクションを指定します。

戻り値

値を返しません。

説明

フォルダを追加します。

例

JScript

1
2
3
4
5
6
7
8
9
10
11

function AddNewFolder(path,folderName)
{
var fso, f, fc, nf;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(path);
fc = f.SubFolders;
if (folderName != "" )
nf = fc.Add(folderName);
else
nf = fc.Add("新しいフォルダ");
}

VBScript

1
2
3
4
5
6
7
8
9
10
11

Sub AddNewFolder(path, folderName)
Dim fso, f, fc, nf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fc = f.SubFolders
If folderName <> "" Then
Set nf = fc.Add(folderName)
Else
Set nf = fc.Add("新しいフォルダ")
End If
End Sub

Item

admin — Mon, 31 Aug 2009 02:16:34 +0000

(PWS4 IIS4 IIS5)
Item –Folders コレクションの要素から Folder オブジェクトを作成します。値の取得も可能です。

構文

object.Item(key)[ = newitem]

パラメータ

object: Folders コレクションを指定します。
key: コレクションの要素名（キー）を指定します。
newitem: キーに対応する値を設定します。

戻り値

キーに対応する要素を返します。

説明

項目を変更するときに引数 key で指定したキーが見つからない場合、newitem で指定した項目と関連付けられた、引数 key で指定した新しいキーが作成されます。また、既存の項目を取得するときに引数 key で指定したキーが見つからない場合は、空の項目と関連付けられた、引数 key で指定した新しいキーが作成されます。

Count

admin — Mon, 31 Aug 2009 02:10:40 +0000

(PWS4 IIS4 IIS5)
Count — コレクションの中のオブジェクト数を返します。値の取得のみ可能です。

構文

object.Count

パラメータ

object: Folders コレクションを指定します。

戻り値

サブフォルダの数を返します。

説明

コレクションの中のサブフォルダの数を返します。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

function CountDemo()
{
var a, d, i, s; // 変数を作成します。
d = new ActiveXObject("Scripting.Dictionary");
d.Add ("a", "アテネ"); // キーと項目を追加します。
d.Add ("b", "ベオグラード");
d.Add ("c", "カイロ");
a = (new VBArray(d.Keys())); // キーを取得します。
s = "";
for (i = 0; i < d.Count; i++) // 取得した配列に繰り返し処理を行います。
{
s += a.getItem(i) + " - " + d(a.getItem(i)) + ">BR<";
}
return(s); // 結果を返します。
}

VBScript

1
2
3
4
5
6
7
8
9
10
11
12

Function ShowKeys
Dim a, d, i, s ' 変数を作成します。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "アテネ" ' キーと項目を追加します。
d.Add "b", "ベオグラード"
d.Add "c", "カイロ"
a = d.Keys ' キーを取得します。
For i = 0 To d.Count -1 ' 配列に繰り返し処理を行います。
s = s & a(i) & "
" ' 結果を返します。
Next
ShowKeys = s
End Function