ShortName

(PWS4 IIS4 IIS5)
ShortName — 従来の 8.3 形式のファイル名が必要なプログラムのために、短いファイル名を返します。

構文

object.ShortName

パラメータ

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

戻り値

ファイル名を返します。

説明

ファイル名が8文字よりも長い場合、チルダ「~」を使用して8文字に短縮して返します。

例

JScript

1
2
3
4
5
6
7
8
9
10
function ShowShortName(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = "ファイル名 : " + "" + f.Name;
   s += "" + "<br />";
   s += "短いファイル名 : " + "" + f.ShortName + "";
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
Function ShowShortName(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = "ファイル名 : " & "" & UCase(f.Name) & "" & "<br />"
   s = s & "短いファイル名 : " & f.ShortName
   ShowShortName = s
End Function
続きを読む

Path

(PWS4 IIS4 IIS5)
Path — 指定されたファイルのパスを返します。

構文

object.Path

パラメータ

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

戻り値

ドライブのパスを返します。

説明

ドライブ名の場合、返される文字列にルート ディレクトリは含まれません。たとえば、C ドライブの場合、C:\ ではなく C: が返されます。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
function ShowFileAccessInfo(filespec)
{
   var fso, d, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = f.Path.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, d, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(f.Path) & "<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function
続きを読む

ParentFolder

(PWS4 IIS4 IIS5)
ParentFolder — 指定されたファイルまたはフォルダが格納されているフォルダを表す Folder オブジェクトを返します。値の取得のみ可能です。

構文

object.ParentFolder

パラメータ

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

戻り値

ディレクトリ名を返します。

説明

ファイルがあるディレクトリ名を返します。

例

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.ParentFolder + " に格納されています。<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(f.Name) & " & UCase(f.ParentFolder) & " に格納されています。<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function
続きを読む

Name

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

構文

object.Name [= newname]

パラメータ

object
File オブジェクトを指定します。
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
続きを読む

Drive

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

構文

object.Drive

パラメータ

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

戻り値

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

説明

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

例

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
File オブジェクトを指定します。

戻り値

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

説明

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
続きを読む

DateCreated

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

構文

object.DateCreated

パラメータ

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

戻り値

ファイルの作成日を返します。

説明

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

例

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
File オブジェクトを指定します。
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
続きを読む

File オブジェクト

ファイルのあらゆるプロパティにアクセスする手段を提供します。

* Attributes
* DateCreated
* DateLastModified
* Drive
* Name
* ParentFolder
* Path
* ShortName
* ShortPath
* Size
* Type
* Copy
* Delete
* Move
* OpenAsTextStream

続きを読む

Item

(PWS4 IIS4 IIS5)
Item — Dictionary オブジェクトにある指定されたキーと関連付ける項目を設定します。コレクションの場合は、指定されたキーに対応するオブジェクトを返します。値の取得も可能です。

構文

object.Item(key)[ = newitem]

パラメータ

object
Drives コレクションを指定します。
Item
必ず指定します。取得または設定する項目に関連付けられているキーを指定します。
newitem
省略可能です。Dictionary オブジェクトの場合のみ指定可能で、コレクションには使用できません。引数 key で指定したキーに関連付ける新しい値を指定します。

戻り値

指定されたキーに対応するオブジェクトを返します。

説明

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

例

JScript

1
2
3
4
5
6
7
8
9
10
function DicTest(keyword)
{
   var a, d;
   d = new ActiveXObject("Scripting.Dictionary");
   d.Add("a", "アテネ");
   d.Add("b", "ベオグラード");
   d.Add("c", "カイロ");
   a = d.Item(keyword);
   return(a);
}

VBScript

1
2
3
4
5
6
7
8
Function ItemDemo
   Dim d   ' Create some variables.
   Set d = CreateObject("Scripting.Dictionary")
   d.Add "a", "アテネ"   ' キーと項目を追加します。
   d.Add "b", "ベオグラード"
   d.Add "c", "カイロ"
   ItemDemo = d.Item("c")   ' 項目を取得します。
End Function
続きを読む

カテゴリー

© 2009 - 2024 サンプルコードで学ぶASP.