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

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