Name

(PWS4 IIS4 IIS5)
Name — 指定されたフォルダの名前を設定します。値の取得も可能です。

構文

object.Name [= newname]

パラメータ

object
Folder オブジェクトを指定します。
newname
省略可能です。object に指定したドライブの新しい名前を指定します。

戻り値

フォルダ名を返します。

説明

引数を設定した場合は、フォルダ名を設定します。

JScript

1
2
3
4
5
6
7
8
9
10
11
function ShowFileAccessInfo(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = f.Name + " は、ドライブ " + f.Drive + " にあります。<br />";
   s += "作成日時 : " + f.DateCreated + "<br />";
   s += "最終アクセス日時 : " + f.DateLastAccessed + "<br />";
   s += "最終更新日時 : " + f.DateLastModified;
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = f.Name & " は、ドライブ " & UCase(f.Drive) & " にあります。<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

IsRootFolder

(PWS4 IIS4 IIS5)
IsRootFolder — 指定されたフォルダがルート フォルダの場合は、真 (true) を返します。ルート フォルダでなければ、偽 (false) を返します。

構文

object.IsRootFolder

パラメータ

object
Folder オブジェクトを指定します。

戻り値

フォルダがルート フォルダの場合 TRUE、それ以外の場合に FALSE を返します。

説明

指定されたフォルダがルート フォルダかどうかを調べます。

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function DisplayLevelDepth(pathspec)
{
   var fso, f, n, s = "";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(pathspec);
   n = 0;
   if (f.IsRootFolder)
      s = "指定されたフォルダは、ルート フォルダです。"
   else
   {
      do
      {
         f = f.ParentFolder;
         n++;
      }
      while (!f.IsRootFolder)
      s = "指定されたフォルダは、" + n + " レベルだけネストされています。"
   }
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function DisplayLevelDepth(pathspec)
   Dim fso, f, n
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(pathspec)
   If f.IsRootFolder Then
      DisplayLevelDepth = "指定されたフォルダは、ルート フォルダです。"
   Else
      Do Until f.IsRootFolder
         Set f = f.ParentFolder
         n = n + 1
      Loop
      DisplayLevelDepth = "指定されたフォルダは、" & n & " レベルだけネストされています。"
   End If
End Function

Files

(PWS4 IIS4 IIS5)
Files — 指定されたフォルダ内にあるすべての File オブジェクトの入った Files コレクションを返します。このコレクションには、隠しファイルやシステム ファイルの属性を持つ File オブジェクトも含まれます。

構文

object.Files

パラメータ

object
Folder オブジェクトを指定します。

戻り値

Files コレクションを返します。

説明

フォルダから Files コレクションを作成します。

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function ShowFolderFileList(folderspec)
{
   var fso, f, fc, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(folderspec);
   fc = new Enumerator(f.files);
   s = "";
   for (; !fc.atEnd(); fc.moveNext())
   {
      s += fc.item();
      s += "<br />";
   }
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11
Function ShowFileList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name
      s = s &   "<br />"
   Next
   ShowFileList = s
End Function

Drive

(PWS4 IIS4 IIS5)
Drive — 指定されたフォルダが格納されているドライブの名前を返します。値の取得のみ可能です。

構文

object.Drive

パラメータ

object
Folder オブジェクトを指定します。

戻り値

フォルダの存在するドライブ名を返します。

説明

フォルダの存在するドライブ名を返します。

JScript

1
2
3
4
5
6
7
8
9
10
11
function ShowFileAccessInfo(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = f.Name + " は、ドライブ " + f.Drive + " にあります。<br />";
   s += "作成日時 : " + f.DateCreated + "<br />";
   s += "最終アクセス日時 : " + f.DateLastAccessed + "<br />";
   s += "最終更新日時 : " + f.DateLastModified;
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = f.Name & " は、ドライブ " & UCase(f.Drive) & " にあります。<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

DateLastModified

(PWS4 IIS4 IIS5)
DateLastModified — 指定されたフォルダが最後に更新されたときの日付と時刻を返します。値の取得のみ可能です。

構文

object.DateLastModified

パラメータ

object
Folder オブジェクトを指定します。

戻り値

フォルダが最後にアクセスされた日付を返します。

説明

OSによっては日付のみ返す場合があります。

JScript

1
2
3
4
5
6
7
8
9
10
11
function ShowFileAccessInfo(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = filespec.toUpperCase() + "<br />";
   s += "作成日時 : " + f.DateCreated + "<br />";
   s += "最終アクセス日時 : " + f.DateLastAccessed + "<br />";
   s += "最終更新日時 : " + f.DateLastModified;
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(filespec) & "<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

DateLastAccessed

(PWS4 IIS4 IIS5)
DateLastAccessed — 指定されたフォルダが最後にアクセスされたときの日付と時刻を返します。値の取得のみ可能です。

構文

object.DateLastAccessed

パラメータ

object
Folder オブジェクトを指定します。

戻り値

フォルダの最終アクセス日を返します。

説明

オペレーティング システムがこの時刻情報の提供をサポートしていない場合は、何も取得されません。

JScript

1
2
3
4
5
6
7
8
9
10
11
function ShowFileAccessInfo(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = filespec.toUpperCase() + "<br />";
   s += "作成日時 :" + f.DateCreated + "<br />";
   s += "最終アクセス日時 :" + f.DateLastAccessed + "<br />";
   s += "最終更新日時 : " + f.DateLastModified;
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(filespec) & "<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

DateCreated

(PWS4 IIS4 IIS5)
DateCreated — 指定されたフォルダの作成された日付と時刻を返します。値の取得のみ可能です。

構文

object.DateCreated

パラメータ

object
Folder オブジェクトを指定します。

戻り値

フォルダの作成日を返します。

説明

返される値は日付と時刻です。

JScript

1
2
3
4
5
6
7
8
function ShowFileInfo(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = "作成日時: " + f.DateCreated;
   return(s);
}

VBScript

1
2
3
4
5
6
Function ShowFileInfo(filespec)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   ShowFileInfo = "作成日時: " & f.DateCreated
End Function

Attributes

(PWS4 IIS4 IIS5)
Attributes –フォルダの属性を設定します。値の取得も可能です。属性によっては、値の取得のみ可能な場合もあります。

構文

object.Attributes [= newattributes]

パラメータ

object
Folder オブジェクトを指定します。
newattributes
省略可能です。object に指定したファイルまたはフォルダに与える新しい属性値を指定します。

以下の値が value パラメータ文字列として認識されます

定数 内容
Normal 0 標準ファイル。どの属性も設定されません。
ReadOnly 1 読み取り専用ファイル。この属性は、値の取得も設定も可能です。
Hidden 2 隠しファイル。この属性は、値の取得も設定も可能です。
System 4 システム ファイル。この属性は、値の取得も設定も可能です。
Volume 8 ディスク ドライブ ボリューム ラベル。この属性は、値の取得のみ可能です。
Directory 16 フォルダまたはディレクトリ。この属性は、値の取得のみ可能です。
Archive 32 ファイルが前回のバックアップ以降に変更されているかどうか。この属性は、値の取得も設定も可能です。
Alias 64 リンクまたはショートカット。この属性は、値の取得のみ可能です。
Compressed 128 圧縮ファイル。この属性は、値の取得のみ可能です。

説明

フォルダの属性を設定します。

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function ToggleArchiveBit(filespec)
{
   var fso, f, r, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec)
   if (f.attributes && 32)
   {
      f.attributes = f.attributes - 32;
      s = "アーカイブ ビットをオフにしました。";
   }
   else
   {
      f.attributes = f.attributes + 32;
      s =   "アーカイブ ビットをオンにしました。";
   }
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11
12
Function ToggleArchiveBit(filespec)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   If f.attributes and 32 Then
      f.attributes = f.attributes - 32
      ToggleArchiveBit = "アーカイブ ビットをオフにしました。"
   Else
      f.attributes = f.attributes + 32
      ToggleArchiveBit = "アーカイブ ビットをオンにしました。"
   End If
End Function