FileAccess | サンプルコードで学ぶASP

Type

(PWS4 IIS4 IIS5)
Type — ファイルまたはフォルダの種類に関する情報を返します。たとえば、名前が .TXT の拡張子で終わるファイルの場合なら、”テキスト文書” という文字列が返されます。

構文

object.Type

パラメータ

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

戻り値

ファイルの種類を返します。

説明

ファイルの種類を返します。
[ごみ箱] などの特殊フォルダをプロシージャに指定してみてください。

JScript

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

function ShowFileType(filespec)
{
var fso, f, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.FolderExists(filespec))
f = fso.GetFolder(filespec);
else if (fso.FileExists(filespec))
f = fso.GetFile(filespec);
else
s = "ファイルまたはフォルダが存在しません。";
s = f.Name + " は、" + f.Type + " です。";
return(s);
}

VBScript

1
2
3
4
5
6
7

Function ShowFolderType(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " は、" & f.Type & " です。"
ShowFolderType = s
End Function

Size

(PWS4 IIS4 IIS5)
Size — ファイルの場合、指定されたファイルのバイト単位のサイズを返します。フォルダの場合、指定されたフォルダ内のすべてのファイルおよびフォルダの合計サイズをバイト単位で返します。

構文

object.Size

パラメータ

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

戻り値

ファイルのサイズを返します。

説明

ファイルのサイズをバイト単位で返します。

例

JScript

1
2
3
4
5
6
7
8

function ShowFolderSize(filespec)
{
var fso, f, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(filespec);
s = f.Name + " は、" + f.size + " バイト使用しています。";
return(s);
}

VBScript

1
2
3
4
5
6
7

Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " は、" & f.size & " バイト使用しています。"
ShowFolderSize = s
End Function

ShortPath

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

構文

object.ShortPath

パラメータ

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

戻り値

パス名を返します。

説明

パス中のディレクトリ名が8文字よりも長い場合、チルダ「~」を使用して8文字に短縮して返します。

例

JScript

1
2
3
4
5
6
7
8
9
10

function ShowShortPath(filespec)
{
var fso, f, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFile(filespec);
s = "パス名 : " + "" + f.Name;
s += "" + " ";
s += "短いパス名 : " + "" + f.ShortPath + "";
return(s);
}

VBScript

1
2
3
4
5
6
7
8

Function ShowShortPath(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = "パス名 : " & "" & UCase(f.Name) & "" & " "
s = s & "短いパス名 : " & f.ShortPath
ShowShortPath = s
End Function

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 += "" + " ";
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) & "" & " "
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() + " ";
s += "作成日時 : " + f.DateCreated + " ";
s += "最終アクセス日時 : " + f.DateLastAccessed + " ";
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) & " "
s = s & "作成日時 : " & f.DateCreated & " "
s = s & "最終アクセス日時 : " & f.DateLastAccessed & " "
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 + " に格納されています。 ";
s += "作成日時 : " + f.DateCreated + " ";
s += "最終アクセス日時 : " + f.DateLastAccessed + " ";
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) & " に格納されています。 "
s = s & "作成日時 : " & f.DateCreated & " "
s = s & "最終アクセス日時 : " & f.DateLastAccessed & " "
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 + " にあります。 ";
s += "作成日時 : " + f.DateCreated + " ";
s += "最終アクセス日時 : " + f.DateLastAccessed + " ";
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) & " にあります。 "
s = s & "作成日時 : " & f.DateCreated & " "
s = s & "最終アクセス日時 : " & f.DateLastAccessed & " "
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 + " にあります。 ";
s += "作成日時 : " + f.DateCreated + " ";
s += "最終アクセス日時 : " + f.DateLastAccessed + " ";
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) & " にあります。 "
s = s & "作成日時 : " & f.DateCreated & " "
s = s & "最終アクセス日時 : " & f.DateLastAccessed & " "
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() + " ";
s += "作成日時 : " + f.DateCreated + " ";
s += "最終アクセス日時 : " + f.DateLastAccessed + " ";
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) & " "
s = s & "作成日時 : " & f.DateCreated & " "
s = s & "最終アクセス日時 : " & f.DateLastAccessed & " "
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

構文

パラメータ

戻り値

説明

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

カテゴリー