MoveFile

(PWS4 IIS4 IIS5)
MoveFile — ファイル (複数可) を別の場所へ移動します。

構文

object.MoveFile ( source, destination )

パラメータ

object
FileSystemObject オブジェクトを指定します。
source
移動するファイルのパスを指定します。
パスの最後の構成要素内ではワイルドカード文字を使用できます。
destination
移動先のファイル名を指定します。

戻り値

値を返しません。

説明

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

* 引数 destination に指定したファイルが存在しない場合、ファイルが移動します。これが通常の場合です。
* 引数 destination に指定したファイルが存在する場合、エラーが発生します。
* 引数 destination がディレクトリの場合、エラーが発生します。

引数 source でワイルドカード文字を使用した指定がどのファイルとも一致しなかった場合も、エラーが発生します。MoveFile メソッドは、最初のエラーが発生した時点で処理を中止します。エラーが発生するまでに行った処理を取り消したり元に戻したりする処理は一切行われません。

例

JScript

1
2
3
4
5
6
function MoveFile2Desktop(filespec)
{
   var fso;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fso.MoveFile(filespec, "c:\\windows\\desktop\");
}

VBScript

1
2
3
4
5
Sub MoveAFile(Drivespec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.MoveFile Drivespec, "c:\windows\desktop"
End Sub
続きを読む

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
続きを読む

カテゴリー

© 2009 - 2024 サンプルコードで学ぶASP.