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

Folder オブジェクト

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

* Attributes
* DateCreated
* DateLastAccessed
* DateLastModified
* Drive
* Files
* IsRootFolder
* Name
* ParentFolder
* Path
* ShortPath
* ShortName
* Size
* SubFolders
* Type
* Copy
* Delete
* Move
* CreateTextFile

続きを読む

OpenTextFile

(PWS4 IIS4 IIS5)
OpenTextFile — 指定したファイルを開き、開いたファイルの読み取り、または追加書き込みに使用できる TextStream オブジェクトを返します。

構文

object.OpenTextFile (filename [, iomode [, create[, format ]]])

パラメータ

object
FileSystemObject オブジェクトを指定します。
filename
作成するファイルの名前を表す文字列式を指定します。
iomode
省略可能です。

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

定数 値 内容
ForReading 1 ファイルを読み取り専用として開きます。このファイルには書き込むことができません。
ForWriting 2 ファイルを書き込み専用として開きます。
ForAppending 8 ファイルを開き、ファイルの最後に追加して書き込みます。
create
省略可能です。
引数 filename で指定したファイルが存在しなかった場合に新しいファイルを作成するかどうかを示すブール値を指定します。
新しいファイルを作成する場合は真 (true) を、ファイルを作成しない場合は偽 (false) を指定します。省略した場合、新しくファイルは作成されません。
format
省略可能です。
開くファイルの形式を示す値を指定します。
省略した場合、ASCII ファイルとしてファイルが開かれます。

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

値 内容
TristateTrue ファイルを Unicode ファイルとして開きます。
TristateFalse ファイルを ASCII ファイルとして開きます。
TristateUseDefault システム デフォルトを使ってファイルを開きます。

戻り値

File オブジェクトを返します。

説明

ファイルを開きます。

例

JScript

1
2
3
4
5
6
var fs, a, ForAppending;
ForAppending = 8;
fs = new ActiveXObject("Scripting.FileSystemObject");
a = fs.OpenTextFile("c:\\testfile.txt", ForAppending, false);
...
a.Close();

VBScript

1
2
3
4
5
6
7
8
Sub OpenTextFileTest
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   f.Close
End Sub
続きを読む

MoveFolder

(PWS4 IIS4 IIS5)
MoveFolder — フォルダ (複数可) を別の場所へ移動します。

構文

object.MoveFolder ( source, destination )

パラメータ

object
FileSystemObject オブジェクトを指定します。
source
移動するフォルダのパスを指定します。
パスの最後の構成要素内ではワイルドカード文字を使用できます。
destination
移動先のフォルダ名を指定します。

戻り値

値を返しません。

説明

フォルダを移動します。

引数 source にワイルドカード文字を使用したとき、および引数 destination がパスの区切り文字 (\) で終わるとき、引数 destination には既存フォルダを指定したと判断され、条件に一致するファイルがそのフォルダ内へ移動されます。それ以外のときは、引数 destination に作成するフォルダの名前を指定したと判断されます。いずれの場合でも、移動される各フォルダで発生する処理の実行は 3 種類あります。

* 引数 destination に指定したフォルダが存在しない場合、フォルダが移動します。これが通常の場合です。
* 引数 destination に指定したファイルが存在する場合、エラーが発生します。
* 引数 destination がディレクトリの場合、エラーが発生します。

引数 source でワイルドカード文字を使用した指定がどのフォルダとも一致しなかった場合も、エラーが発生します。MoveFolder メソッドは、最初のエラーが発生した時点で処理を中止します。エラーが発生するまでに行った処理を取り消したり元に戻したりする処理は一切行われません。

重要 このメソッドを使用してボリューム間でフォルダを移動できるのは、オペレーティング システムでボリューム間のフォルダ移動がサポートされている場合だけです。

例

JScript

1
2
3
4
5
6
function MoveFldr2Desktop(fldrspec)
{
   var fso;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fso.MoveFolder(fldrspec, "c:\\windows\\desktop\");
}

VBScript

1
2
3
4
5
Sub MoveAFolder(Drivespec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.MoveFolder Drivespec, "c:\windows\desktop"
End Sub
続きを読む

MoveFile

(PWS4 IIS4 IIS5)
MoveFile — ファイル (複数可) を別の場所へ移動します。

構文

object.MoveFile ( source, destination )

パラメータ

object
FileSystemObject オブジェクトを指定します。
source
移動するファイルのパスを指定します。
パスの最後の構成要素内ではワイルドカード文字を使用できます。
destination
移動先のファイル名を指定します。

戻り値

値を返しません。

説明

ファイルを移動します。
移動元のファイル名にはワイルドカード「*」が使用できます。
引数 source にワイルドカード文字を使用したとき、および引数 destination がパスの区切り文字 (\) で終わるとき、引数 destination には既存フォルダを指定したと判断され、条件に一致するファイルがそのフォルダ内へ移動されます。それ以外のときは、引数 destination には作成するファイルの名前を指定したと判断されます。いずれの場合も、移動される各ファイルで発生する処理の実行は 3 種類あります。

* 引数 destination に指定したファイルが存在しない場合、ファイルが移動します。これが通常の場合です。
* 引数 destination に指定したファイルが存在する場合、エラーが発生します。
* 引数 destination がディレクトリの場合、エラーが発生します。

引数 source でワイルドカード文字を使用した指定がどのファイルとも一致しなかった場合も、エラーが発生します。MoveFile メソッドは、最初のエラーが発生した時点で処理を中止します。エラーが発生するまでに行った処理を取り消したり元に戻したりする処理は一切行われません。

例

JScript

1
2
3
4
5
6
function MoveFile2Desktop(filespec)
{
   var fso;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fso.MoveFile(filespec, "c:\\windows\\desktop\");
}

VBScript

1
2
3
4
5
Sub MoveAFile(Drivespec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.MoveFile Drivespec, "c:\windows\desktop"
End Sub
続きを読む

GetTempName

(PWS4 IIS4 IIS5)
GetTempName — 一時ファイルまたは一時フォルダの名前をランダムに生成して返します。このメソッドは、一時ファイルや一時フォルダを必要とする処理を行うときに便利です。

構文

object.GetTempName

パラメータ

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

戻り値

テンポラリファイル名を返します。

説明

GetTempName メソッドはテンポラリファイル名を返します。
これはファイルを作成するのでは無く、CreateTextFile を使ってファイルを作成する際に使用できる一時ファイル名を返すだけです。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var fso, tempfile;
fso = new ActiveXObject("Scripting.FileSystemObject");

function CreateTempFile()
{
   var tfolder, tfile, tname, fname, TemporaryFolder = 2;
   tfolder = fso.GetSpecialFolder(TemporaryFolder);
   tname = fso.GetTempName();
   tfile = tfolder.CreateTextFile(tname);
   return(tfile);
}
tempfile = CreateTempFile();
tempfile.writeline("Hello World");
tempfile.close();

VBScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateTempFile
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   tname = fso.GetTempName
   Set tfile = tfolder.CreateTextFile(tname)
   Set CreateTempFile = tfile
End Function

Set tempfile = CreateTempFile
tempfile.WriteLine "Hello World"
tempfile.Close
続きを読む

GetSpecialFolder

(PWS4 IIS4 IIS5)
GetSpecialFolder — 指定された特殊フォルダを返します。

構文

object.GetSpecialFolder ( folderspec )

パラメータ

object
FileSystemObject オブジェクトを指定します。
folderspec
特殊フォルダの種類を指定します。

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

定数 値 内容
WindowsFolder 0 Windows オペレーティング システムによりセットアップされたファイルの置かれている Windows フォルダが返されます。
SystemFolder 1 ライブラリ、フォント、デバイス ドライバなどの置かれている System フォルダが返されます。
TemporaryFolder 2 一時ファイルの格納に使用される Temp フォルダが返されます。このパスは、環境変数 TMP より取得します。

戻り値

Folder オブジェクトを返します。

説明

TempフォルダやSystemフォルダのなどの特殊なフォルダの Folder オブジェクトを作成します。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var fso, tempfile;
fso = new ActiveXObject("Scripting.FileSystemObject");

function CreateTempFile()
{
   var tfolder, tfile, tname, fname, TemporaryFolder = 2;
   tfolder = fso.GetSpecialFolder(TemporaryFolder);
   tname = fso.GetTempName();
   tfile = tfolder.CreateTextFile(tname);
   return(tfile);
}
tempfile = CreateTempFile();
tempfile.writeline("Hello World");
tempfile.close();

VBScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateTempFile
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   tname = fso.GetTempName
   Set tfile = tfolder.CreateTextFile(tname)
   Set CreateTempFile = tfile
End Function

Set tempfile = CreateTempFile
tempfile.WriteLine "Hello World"
tempfile.Close
続きを読む

GetParentFolderName

(PWS4 IIS4 IIS5)
GetParentFolderName — 指定されたパスの最後のファイルまたはフォルダの親フォルダの名前が入った文字列を返します。

構文

object.GetParentFolderName ( path )

パラメータ

object
FileSystemObject オブジェクトを指定します。
path
パス名を指定します。

戻り値

指定したパスのフォルダ名を返します。

説明

引数 path に指定したファイルまたはフォルダに親フォルダが存在しない場合は、長さ 0 の文字列 (“”) を返します。

GetParentFolderName メソッドは、引数 path で指定された文字列に対してのみ処理を行います。指定されたパスを解決したり、指定されたパスが実際に存在するかどうかを確認したりしません。

例

JScript

1
2
3
4
5
6
7
function ShowParentFolderName(filespec)
{
   var fso, s = "";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   s += fso.GetParentFolderName(filespec);
   return(s);
}

VBScript

1
2
3
4
5
Function GetTheParent(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetTheParent = fso.GetParentFolderName(Drivespec)
End Function
続きを読む

カテゴリー

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