GetFolder

(PWS4 IIS4 IIS5)
GetFolder — 指定されたパスに置かれているフォルダに対応する Folder オブジェクトを返します。

構文

object.GetFolder ( folderspec )

パラメータ

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

戻り値

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

説明

指定したフォルダの Folder オブジェクトを作成します。
指定したフォルダが存在しない場合は、エラーが発生します。

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function ShowFolderList(folderspec)
{
   var fso, f, fc, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(folderspec);
   fc = new Enumerator(f.SubFolders);
   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
Sub AddNewFolder(path, folderName)
   Dim fso, f, fc, nf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(path)
   Set fc = f.SubFolders
   If folderName <> "" Then
      Set nf = fc.Add(folderName)
   Else
      Set nf = fc.Add("新しいフォルダ")
   End If
End Sub

GetFileName

(PWS4 IIS4 IIS5)
GetFileName — 指定されたパスの最後のファイル名またはフォルダ名を返します。

構文

object.GetFileName ( pathspec )

パラメータ

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

戻り値

パスのファイル名を返します。

説明

引数 pathspec に指定した文字列の最後がファイル名になっていない場合は、長さ 0 の文字列 (“”) を返します。

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

JScript

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

VBScript

1
2
3
4
5
Function GetAName(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetAName = fso.GetFileName(DriveSpec)
End Function

GetFile

(PWS4 IIS4 IIS5)
GetFile — 指定されたパスに置かれているファイルに対応する File オブジェクトを返します。

構文

object.GetFile( filespec )

パラメータ

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

戻り値

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

説明

指定されたパスのファイルに対応する 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.Path.toUpperCase() + "<br />";
   s += "作成日時:" + f.DateCreated + "<br />";
   s += "最終アクセス日時:" + f.DateLastAccessed + "<br />"; s += "<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.Path & ">br<"
   s = s & "作成日時: " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時: " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時: " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

GetExtensionName

(PWS4 IIS4 IIS5)
GetExtensionName — 指定されたパスの拡張子を表す文字列を返します。

構文

object.GetExtensionName( path )

パラメータ

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

戻り値

拡張子を表す文字列を返します。

説明

ネットワーク ドライブの場合は、ルート ディレクトリ (\) が構成要素であると見なされます。

引数 path に指定された文字列で拡張子に該当するものがない場合は、長さ 0 の文字列 (“”) が返されます。

JScript

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

VBScript

1
2
3
4
5
Function GetAnExtension(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

GetDriveName

(PWS4 IIS4 IIS5)
GetDriveName — 指定されたパスのドライブ名を返します。

構文

object.GetDriveName( path )

パラメータ

object
FileSystemObject オブジェクトを指定します。
path
ドライブ名を取り出すパスを指定します。

戻り値

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

説明

ドライブが判断できない場合は、長さ 0 の文字列 (“”) が返されます。

JScript

1
2
3
4
5
6
7
function GetDriveLetter(path)
{
   var fso, s ="";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   s += fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(path)));
   return(s);
}

VBScript

1
2
3
4
5
Function GetAName(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetAName = fso.GetDriveName(Drivespec)
End Function

GetDrive

(PWS4 IIS4 IIS5)
GetDrive — 指定されたパスに含まれるドライブに対応する Drive オブジェクトを返します。

構文

object.GetDrive ( drivespec )

パラメータ

object
FileSystemObject オブジェクトを指定します。
drivespec
パス名。
c:」か「\\」から始まる文字列で指定します。

戻り値

ドライブオブジェクトを返します。

説明

ネットワーク共有名を指定した場合は、その共有が存在するかどうかが確認されます。

引数 drivespec が指定可能な形式になっていない場合、および指定したドライブが存在しない場合は、エラーが発生します。

JScript

1
2
3
4
5
6
7
8
9
10
function ShowFreeSpace(drvPath)
{
   var fso, d, s ="";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   d = fso.GetDrive(fso.GetDriveName(drvPath));
   s = "ドライブ " + drvPath.toUpperCase( ) + " - ";
   s += d.VolumeName + ">BR<";
   s += "空き領域:" + d.FreeSpace/1024 + " KB";
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
Function ShowFreeSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "ドライブ " & UCase(drvPath) & " - "
   s = s & d.VolumeName   & ">BR<"
   s = s & "空き領域: " & FormatNumber(d.FreeSpace/1024, 0)
   s = s & " KB"
   ShowFreeSpace = s
End Function

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