サンプルコードで学ぶASP » Drive オブジェクト

VolumeName

admin — Mon, 24 Aug 2009 09:51:40 +0000

(PWS4 IIS4 IIS5)
VolumeName — 指定されたドライブのボリューム名を設定または返します。値の取得も可能です。

構文

object.VolumeName [= newname]

パラメータ

object: Drive オブジェクトを指定します。
newname: 省略可能です。object に指定したドライブの新しい名前を指定します。

戻り値

ボリューム名を返します。

説明

ドライブのボリューム名を設定します。

例

JScript

1
2
3
4
5
6
7
8
9
10
11

function SpaceReport(drvPath)
{
var fso, d, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(fso.GetDriveName(drvPath));
s = "ドライブ " + drvPath + " - ";
s += d.VolumeName + "
";
s += "合計サイズ:"+ d.TotalSize/1024 + " KB
";
s += "空き領域: " + d.FreeSpace/1024 + " KB";
return(s);
}

VBScript

1
2
3
4
5
6
7

Function ShowVolumeInfo(drvpath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
s = "ドライブ " & d.DriveLetter & ": - " & d.VolumeName
ShowVolumeInfo = s
End Function

TotalSize

admin — Mon, 24 Aug 2009 09:48:48 +0000

(PWS4 IIS4 IIS5)
TotalSize — ドライブまたはネットワーク共有の総容量をバイト単位で返します。

構文

object.TotalSize

パラメータ

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

戻り値

装容量を返します。

説明

次のコードは、TotalSize プロパティの使用例です。

JScript

1
2
3
4
5
6
7
8
9
10
11

function SpaceReport(drvPath)
{
var fso, d, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(fso.GetDriveName(drvPath));
s = "ドライブ " + drvPath + " - ";
s += d.VolumeName + "
";
s += "合計サイズ :"+ d.TotalSize/1024 + " KB
";
s += "空き領域: " + d.FreeSpace/1024 + " KB";
return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11

Function ShowSpaceInfo(drvpath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
s = "ドライブ " & d.DriveLetter & ":"
s = s & vbCrLf
s = s & "合計サイズ : " & FormatNumber(d.TotalSize/1024, 0) & " KB"
s = s & vbCrLf
s = s & "空き領域 : " & FormatNumber(d.AvailableSpace/1024, 0) & " KB"
ShowSpaceInfo = s
End Function

ShareName

admin — Mon, 24 Aug 2009 09:47:07 +0000

(PWS4 IIS4 IIS5)
ShareName — 指定されたドライブのネットワーク共有名を返します。

構文

object.ShareName

パラメータ

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

戻り値

共有名を返します。

説明

object にネットワークドライブでないドライブを指定すると、長さ 0 の文字列 (“”) が返されます。

例

JScript

1
2
3
4
5
6
7
8

function ShowDriveInfo(drvpath)
{
var fso, d, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)));
s = "ドライブ " + d.DriveLetter + ": - " + d.ShareName;
return(s);
}

VBScript

1
2
3
4
5
6

Function ShowDriveInfo(drvpath)
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
ShowDriveInfo = "ドライブ " & d.DriveLetter & ": - " & d.ShareName
End Function

SerialNumber

admin — Mon, 24 Aug 2009 09:45:12 +0000

(PWS4 IIS4 IIS5)
SerialNumber — ディスクボリュームを一意に識別する小数のシリアル番号を返します。

構文

object.SerialNumber

パラメータ

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

戻り値

ドライブのシリアル番号を返します。

説明

SerialNumber プロパティを使用して、リムーバブルメディアのドライブに正しいディスクが挿入されたことを確認できます。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

function ShowDriveInfo(drvpath){
var fso, d, s, t;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)));
switch (d.DriveType)
{
case 0: t = "不明"; break;
case 1: t = "リムーバブルディスク"; break;
case 2: t = "ハードディスク"; break;
case 3: t = "ネットワークディスク"; break;
case 4: t = "CD-ROM"; break;
case 5: t = "RAM ディスク"; break;
}
s = "Drive " + d.DriveLetter + ": - " + t;
s += "
" + "SN: " + d.SerialNumber;
return(s);
}

VBScript

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

Function ShowDriveInfo(drvpath)
Dim fso, d, s, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "不明"
Case 1: t = "リムーバブルディスク"
Case 2: t = "ハードディスク"
Case 3: t = "ネットワークディスク"
Case 4: t = "CD-ROM"
Case 5: t = "RAM ディスク
End Select
s = "Drive " & d.DriveLetter & ": - " & t
s = s & "
" & "SN: " & d.SerialNumber
ShowDriveInfo = s
End Function

RootFolder

admin — Mon, 24 Aug 2009 09:43:25 +0000

(PWS4 IIS4 IIS5)
RootFolder — 指定されたドライブのルートフォルダを表す Folder オブジェクトを返します。値の取得のみ可能です。

構文

object.RootFolder

パラメータ

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

戻り値

ドライブのルートフォルダを返します。

説明

取得した Folder オブジェクトを使用すると、ドライブ上に置かれているすべてのファイルおよびフォルダにアクセスできます。

例

JScript

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

function GetRootFolder(drv)
{
var fso,d;
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.DriveExists(drv))
{
d = fso.GetDrive(drv);
return(d.RootFolder);
}
else
return(false);
}

VBScript

1
2
3
4
5
6

Function ShowRootFolder(drvspec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive(drvspec)
ShowRootFolder = f.RootFolder
End Function

Path

admin — Mon, 24 Aug 2009 09:40:38 +0000

(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

IsReady

admin — Mon, 24 Aug 2009 02:53:19 +0000

(PWS4 IIS4 IIS5)
IsReady — 指定されたドライブの準備ができている場合は真 (true) を返します。準備ができてない場合は偽 (false) を返します。

構文

object.IsReady

パラメータ

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

戻り値

ドライブの準備ができている場合に True を、それ以外の場合に False を返します。

説明

リムーバブルディスクドライブおよび CD-ROM ドライブの場合は、ドライブにメディアがセットされており、アクセスできる状態にある場合にだけ真 (true) になります。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

function ShowDriveInfo(drvpath)
{
var fso, d, s, t;
fso = new ActiveXObject("Scripting.FileSystemObject")
d = fso.GetDrive(drvpath)
switch (d.DriveType)
{
case 0:t = "不明"; break;
case 1:t = "リムーバブルディスク"; break;
case 2:t = "ハードディスク"; break;
case 3:t = "ネットワークドライブ"; break;
case 4:t = "CD-ROM"; break;
case 5:t = "RAM ディスク"; break;
}
s = "ドライブ " + d.DriveLetter + ": - " + t;
if (d.IsReady)
s += "
" + "ドライブの準備ができています。";
else
s += "
" + "ドライブの準備ができていません。";
return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Function ShowDriveInfo(drvpath)
Dim fso, d, s, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "不明"
Case 1: t = "リムーバブルディスク"
Case 2: t = "ハードディスク"
Case 3: t = "ネットワークドライブ"
Case 4: t = "CD-ROM"
Case 5: t = "RAM ディスク"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
If d.IsReady Then
s = s & "
" & "ドライブの準備ができています。"
Else
s = s & "
" & "ドライブの準備ができていません。"
End If
ShowDriveInfo = s
End Function

FreeSpace

admin — Mon, 24 Aug 2009 02:45:56 +0000

(PWS4 IIS4 IIS5)
FreeSpace — 指定されたドライブまたはネットワーク共有でユーザーが使用できるディスクの空き境域を返します。値の取得のみ可能です。

構文

object.FreeSpace

パラメータ

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

戻り値

ディスクの空き境域を返します。

説明

通常、FreeSpace プロパティは AvailableSpace プロパティと同じ値を返します。これらの 2 つの値が異なる可能性があるのは、コンピュータシステムがディスククォータ機能をサポートしている場合だけです。

例

JScript

1
2
3
4
5
6
7
8
9
10
11

function ShowFreeSpace(drvPath)
{
var fso, d, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(fso.GetDriveName(drvPath));
s = "ドライブ " + drvPath.toUpperCase( ) + " - ";
s += d.VolumeName + "
";
s += "使用可能な領域 :" + d.FreeSpace/1024 + " KB";
return(s);
}

VBScript

1
2
3
4
5
6
7
8
9
10
11

Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & d.VolumeName & "
"
s = s & "使用可能な領域 : " & FormatNumber(d.FreeSpace/1024, 0)
s = s & " KB"
ShowFreeSpace = s
End Function

FileSystem

admin — Mon, 24 Aug 2009 02:43:10 +0000

(PWS4 IIS4 IIS5)
FileSystem — 指定されたドライブに使用されているファイルシステムの種類を返します。

構文

object.FileSystem

パラメータ

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

戻り値

ドライブのファイルシステムを文字列で返します。

説明

取得される可能性のある種類には、FAT、NTFS、CDFS があります。

例

JScript

1
2
3
4
5
6
7
8

function ShowFileSystemType(drvPath)
{
var fso,d, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(drvPath);
s = d.FileSystem;
return(s);
}

VBScript

1
2
3
4
5
6

Function ShowFileSystemType(drvspec)
Dim fso,d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(drvspec)
ShowFileSystemType = d.FileSystem
End Function

DriveType

admin — Mon, 24 Aug 2009 02:38:09 +0000

(PWS4 IIS4 IIS5)
DriveType — 指定されたドライブの種類を示す値を返します。

構文

object.DriveType

パラメータ

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

戻り値

ドライブの種類を示す値を返します。

説明

指定されたドライブの種類を示す値を返します。
ハードディスクやネットワークドライブなどを表す値が返されます。
このプロパティは読み取り専用です。

例

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

function ShowDriveType(drvpath)
{
var fso, d, s, t;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(drvpath);
switch (d.DriveType)
{
case 0:t = "不明"; break;
case 1:t = "リムーバブルディスク"; break;
case 2:t = "ハードディスク"; break;
case 3:t = "ネットワークドライブ"; break;
case 4: t = "CD-ROM"; break;
case 5:t = "RAM ディスク"; break;
}
s = "ドライブ " + d.DriveLetter + ": - " + t;
return(s);
}

VBScript

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

Function ShowDriveType(drvpath)
Dim fso, d, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "不明"
Case 1: t = "リムーバブルディスク"
Case 2: t = "ハードディスク"
Case 3: t = "ネットワークドライブ"
Case 4: t = "CD-ROM"
Case 5: t = "RAM ディスク"
End Select
ShowDriveType = "ドライブ " & d.DriveLetter & ": - " & t
End Function