サンプルコードで学ぶASP

GetBaseName

(PWS4 IIS4 IIS5)
GetBaseName — 指定されたパス内に含まれるファイルのベース名 (ファイル拡張子を除いたもの) を表す文字列を返します。

構文

object.GetBaseName( path )

パラメータ

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

戻り値

指定した path のベース名を返します。

説明

引数 path に指定された文字列でベース名に該当するファイルまたはフォルダがない場合は、GetBaseName メソッドは長さ 0 の文字列 (“”) を返します。

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

例

JScript

1
2
3
4
5
6
7

function ShowBaseName(filespec)
{
var fso, s = "";
fso = new ActiveXObject("Scripting.FileSystemObject");
s += fso.GetBaseName(filespec);
return(s);
}

VBScript

1
2
3
4
5

Function GetTheBase(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetTheBase = fso.GetBaseName(filespec)
End Function

GetAbsolutePathName

(PWS4 IIS4 IIS5)
GetAbsolutePathName — 指定されたパスの絶対パス名を返します。

構文

object.GetAbsolutePathName( pathspec )

パラメータ

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

戻り値

パス名を返します。

説明

格納されているドライブのルートからの一意的な名前になっていると、絶対パスを返します。
ドライブ名を割り当てられているルートフォルダを指定した場合だけ、パスの区切り文字 (\) で終わります。

FolderExists

(PWS4 IIS4 IIS5)
FolderExists — 指定されたフォルダが存在する場合は、真 (true) を返します。存在しない場合は、偽 (false) を返します。

object.FolderExists ( folderspec )

パラメータ

object: FileSystemObject オブジェクトを指定します。
folderspec: フォルダへのパス。
存在するかどうかを調べるフォルダの名前を指定します。カレントフォルダ内にないフォルダを調べる場合は、絶対パスを指定する必要があります。絶対パスまたは相対パスのどちらかを指定できます。

戻り値

folderspec で指定したディレクトリが存在すれば TRUE を返し、そうでなければ FALSE を返します。

説明

ディレクトリが存在するかどうかを調べます。

例

JScript

1
2
3
4
5
6
7
8
9
10

function ReportFolderStatus(fldr)
{
var fso, s = fldr;
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.FolderExists(fldr))
s += " は、存在します。";
else
s += " は、存在しません。";
return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10

Function ReportFolderStatus(fldr)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(fldr)) Then
msg = fldr & " は、存在します。"
Else
msg = fldr & " は、存在しません。"
End If
ReportFolderStatus = msg
End Function

FileExists

(PWS4 IIS4 IIS5)
FileExists — 指定したファイルが存在する場合は、真 (true) を返します。存在しない場合は、偽 (false) を返します。

構文

object.FileExists ( filespec )

パラメータ

object: FileSystemObject オブジェクトを指定します。
filespec: ファイルへのパス。

戻り値

filespec で指定したファイルまたはディレクトリが存在すれば TRUE を返し、そうでなければ FALSE を返します。

説明

ファイルが存在するかどうかを調べます。

例

JScript

1
2
3
4
5
6
7
8
9
10

function ReportFileStatus(filespec)
{
var fso, s = filespec;
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.FileExists(filespec))
s += " は、存在します。";
else
s += " は、存在しません。";
return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10

Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " は、存在します。"
Else
msg = filespec & " は、存在しません。"
End If
ReportFileStatus = msg
End Function

DriveExists

(PWS4 IIS4 IIS5)
DriveExists — 指定されたドライブが存在する場合は、真 (true) を返します。存在しない場合は、偽 (false) を返します。

構文

object.DriveExists(drivespec)

パラメータ

object: FileSystemObject オブジェクトを指定します。
drivespec: ドライブ名またはフルパスを指定します。

戻り値

ドライブが存在すれば TRUE、それ以外の場合に FALSE を返します。

説明

リムーバブルメディアのドライブの場合は、メディアがセットされていなくても真 (true) が返されます。ドライブの準備ができているかどうかを調べるには、Drive オブジェクトの IsReady プロパティを使用してください。

例

JScript

1
2
3
4
5
6
7
8
9
10

function ReportDriveStatus(drv)
{
var fso, s = "";
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.DriveExists(drv))
s += "ドライブ " + drv + " は、存在します。";
else
s += "ドライブ " + drv + " は、存在しません。";
return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10

Function ReportDriveStatus(drv)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.DriveExists(drv) Then
msg = ("ドライブ " & UCase(drv) & " は、存在します。")
Else
msg = ("ドライブ " & UCase(drv) & " は、存在しません。")
End If
ReportDriveStatus = msg
End Function

DeleteFolder

(PWS4 IIS4 IIS5)
DeleteFolder — 指定されたフォルダおよびそのフォルダ内のフォルダとファイルを削除します。

構文

object.DeleteFolder ( source [, option] )

パラメータ

object: FileSystemObject オブジェクトを指定します。
source: 削除するファイルを指定します。
option: オプションのパラメータ option に TRUE が指定された場合、読み取り専用ファイルも削除します。デフォルトは FALSE です。

戻り値

値を返しません。

説明

DeleteFolder メソッドでは、ほかのフォルダやファイルを含むフォルダと何も含まないフォルダとは区別されません。指定したフォルダは、ほかのファイルやフォルダが格納されているかどうかに関係なく削除されます。

名前の一致するフォルダが見つからない場合は、エラーが発生します。DeleteFolder メソッドは、最初のエラーが発生した時点で処理を中止します。エラーが発生するまでに行った処理を、取り消したり元に戻したりする処理は一切行われません。

例

JScript

1
2
3
4
5
6

function DeleteFolder(folderspec)
{
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFolder(folderspec);
}

VBScript

1
2
3
4
5

Sub DeleteAFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
End Sub

DeleteFile

(PWS4 IIS4 IIS5)
DeleteFile — 指定されたファイルを削除します。

構文

object.DeleteFile ( filespec　[, force] )

パラメータ

object: FileSystemObject オブジェクトを指定します。
filespec: 削除するファイル名を指定します。
force: オプションのパラメータ force に TRUE が指定された場合、読み取り専用ファイルも削除します。デフォルトは FALSE です。

戻り値

値を返しません。

説明

名前の一致するファイルが見つからない場合は、エラーが発生します。DeleteFile メソッドは、最初のエラーが発生した時点で処理を中止します。エラーが発生するまでに行った処理を、取り消したり元に戻したりする処理は一切行われません。

例

JScript

1
2
3
4
5
6

function DeleteFile(filespec)
{
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFile(filespec);
}

VBScript

1
2
3
4
5

Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub

CreateTextFile

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

構文

object.CreateTextFile ( source [, overwrite] [, Format] )

パラメータ

object: FileSystemObject オブジェクトを指定します。
source: 作成するファイル名を指定します。
overwrite: オプションのパラメータ overwrite に FALSE が指定された場合、ファイルを上書きしません。デフォルトは TRUE です。
format: オプションのパラメータ format に TRUE が指定された場合Unicode形式でファイルを作成します。デフォルトは FALSE (ASCII）です。

戻り値

値を返しません。

説明

テキストファイルを作成します。
引数 overwrite に偽 (false) を指定した場合、または省略した場合、引数 filename に既存のファイル名を指定するとエラーが発生します。

例

JScript

1
2
3
4

var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("これはテストです。");
a.Close();

VBScript

1
2
3
4
5
6
7

Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("これはテストです。")
MyFile.Close
End Sub

CreateFolder

(PWS4 IIS4 IIS5)
CreateFolder — フォルダを作成します。

構文

object.CreateFolder(foldername)

パラメータ

object: FileSystemObject オブジェクトを指定します。
foldername: 作成するフォルダ名を指定します。

戻り値

値を返しません。

説明

指定したフォルダが既に存在していた場合は、エラーが発生します。

例

JScript

1 2	var fso = new ActiveXObject("Scripting.FileSystemObject"); var a = fso.CreateFolder("c:\\new folder");

VBScript

1
2
3
4
5
6

Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
End Function

CopyFolder

(PWS4 IIS4 IIS5)
CopyFolder — フォルダを再帰的に別の場所へコピーします。

構文

object.CopyFolder ( source, destination[, overwrite] )

パラメータ

object: FileSystemObject オブジェクトを指定します。
source: コピー元のフォルダ名を指定します。
destination: コピー先のフォルダ名を指定します。
overwrite: オプションのパラメータ overwrite に FALSE が指定された場合、ファイルを上書きしません。デフォルトは TRUE です。

戻り値

値を返しません。

説明

フォルダをコピーします。
ワイルドカード「*」を使用することができます。
ワイルドカード文字は、引数 source に指定する最後の構成要素内でのみ使用できます。次のような使い方が可能です。

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

* 引数 destination に指定したフォルダが存在しない場合、引数 source に指定したフォルダおよびそのフォルダ内のすべてのファイルとフォルダがコピーされます。これが通常の場合です。
* 引数 destination に指定したファイルが存在する場合、エラーが発生します。
* 引数 destination がディレクトリの場合、指定したフォルダおよびそのフォルダ内のすべてのファイルとフォルダをコピーしようとします。引数 source で指定したフォルダ内のファイルと同じ名前のファイルが引数 destination で指定したフォルダ内に既にある場合、引数 overwrite に偽 (false) を指定しているとエラーが発生します。真 (true) を指定していると、ファイルがコピーされ、既存ファイルは上書きされます。
* 引数 destination に指定したのが読み取り専用のディレクトリの場合、引数 overwrite に偽 (false) を指定していて、既存の読み取り専用ファイルをコピー先ディレクトリ内へコピーしようとすると、エラーが発生します。

引数 source でワイルドカード文字を使用した指定がどのフォルダとも一致しなかった場合も、エラーが発生します。

CopyFolder メソッドは、最初のエラーが発生した時点で処理を中止します。エラーが発生するまでに行った処理を取り消したり元に戻したりする処理は一切行われません。

例

JScript

1 2	fso = new ActiveXObject("Scripting.FileSystemObject"); fso.CopyFolder ("c:\\mydocuments\\letters\\*.doc", "c:\\tempfolder\");

VBScript

1	FileSystemObject.CopyFolder "c:\mydocuments\letters\*.doc", "c:\tempfolder"

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

構文

パラメータ

戻り値

説明

例

カテゴリー