Move

(PWS4 IIS4 IIS5)
Move — 指定されたファイルまたはフォルダを別の場所へ移動します。

構文

object.Move destination

パラメータ

object
Folder オブジェクトを指定します。
destination
必ず指定します。フォルダの移動先を指定します。ワイルドカード文字は使用できません。

戻り値

値を返しません。

説明

フォルダを移動します。
フォルダ名は絶対パスで指定する必要があります。
Folder オブジェクトに対して実行した Move メソッドの結果は、FileSystemObject.MoveFile メソッドまたは FileSystemObject.MoveFolder メソッドを使用して実行するのと同じ結果になります。ただし、これらの代替メソッドを使用した場合は、複数のファイルやフォルダをコピーすることもできます。


Delete

(PWS4 IIS4 IIS5)
Delete — 指定されたフォルダを削除します。

構文

object.Delete force

パラメータ

object
Folder オブジェクトを指定します。
force
省略可能です。読み取り専用属性がオンになっているフォルダも削除の対象とする場合は真 (true) を、読み取り専用のフォルダは削除しない場合は偽 (false) (既定) を指定します。

戻り値

値を返しません。

説明

指定したフォルダが存在しなかった場合は、エラーが発生します。

Folder オブジェクトに対して実行した Delete メソッドの結果は、FileSystemObject.DeleteFile メソッドまたは FileSystemObject.DeleteFolder メソッドを使用して実行するのと同じ結果になります。

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

JScript

1
2
3
4
var fso, f;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder("c:\\testfile\");
f.Delete();

VBScript

1
2
3
4
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFolder("c:\testfile\")
MyFile.Delete

Copy

(PWS4 IIS4 IIS5)
Copy — フォルダをコピーする

構文

object.Copy FileName [, Option]

パラメータ

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

戻り値

値を返しません。

説明

フォルダのコピーを作成します。

VBScript

1
2
3
4
5
6
7
8
Sub ManipFiles
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.GetFolder("c:\testfile\")
   f.Copy "c:\temp\testfile"
   Response.Write "完了しました !"
End Sub

JScript

1
2
3
4
5
6
7
8
9
function ManipFiles()
{
   var fso, f;
   fso = new ActiveXObject("Scripting.FileSystemObject");

   f = fso.GetFile("c:\\testfile");
   f.Copy ("c:\\temp\\testfile");
   Response.Write("完了しました !");
}

Type

(PWS4 IIS4 IIS5)
Type — フォルダの種類に関する情報を返します。

構文

object.Type

パラメータ

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

戻り値

フォルダの種類を返します。

説明

フォルダの種類を返します。
「ファイル フォルダ」という文字列を返します。

JScript

1
2
3
4
5
6
7
8
9
10
11
12
13
function ShowFileType(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   if (fso.FolderExists(filespec))
      f = fso.GetFolder(filespec);
   else if (fso.FileExists(filespec))
      f = fso.GetFile(filespec);
   else
      s = "ファイルまたはフォルダが存在しません。";
   s = f.Name + " は、" + f.Type + " です。";
   return(s);
}

VBScript

1
2
3
4
5
6
7
Function ShowFolderType(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(filespec)
   s = UCase(f.Name) & " は、" & f.Type & " です。"
   ShowFolderType = s
End Function

SubFolders

(PWS4 IIS4 IIS5)
SubFolders — 指定されたフォルダ内にあるすべてのフォルダの入った Folders コレクションを返します。このコレクションには、隠しファイルやシステム ファイルの属性を持つフォルダも含まれます。

構文

object.SubFolders

パラメータ

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

戻り値

Files コレクションを返します。

説明

フォルダのサブフォルダを Files コレクションとして返します。

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
Function ShowFolderList(folderspec)
   Dim fso, f, f1, s, sf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set sf = f.SubFolders
   For Each f1 in sf
      s = s & f1.name
      s = s & "<br />"
   Next
   ShowFolderList = s
End Function

Size

(PWS4 IIS4 IIS5)
Size — 指定されたフォルダ内のすべてのファイルおよびフォルダの合計サイズをバイト単位で返します。

構文

object.Size

パラメータ

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

戻り値

フォルダのサイズを返します。

説明

フォルダのサイズをバイト単位で返します。

JScript

1
2
3
4
5
6
7
8
function ShowFolderSize(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(filespec);
   s = f.Name + " は、" + f.size + " バイト使用しています。";
   return(s);
}

VBScript

1
2
3
4
5
6
7
 Function ShowFolderSize(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(filespec)
   s = UCase(f.Name) & " は、" & f.size & " バイト使用しています。"
   ShowFolderSize = s
End Function

ShortName

(PWS4 IIS4 IIS5)
ShortName — 従来の 8.3 形式のファイル名が必要なプログラムのために、短いファイル名を返します。

構文

object.ShortName

パラメータ

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

戻り値

ファイル名を返します。

説明

ファイル名が8文字よりも長い場合、チルダ「~」を使用して8文字に短縮して返します。

JScript

1
2
3
4
5
6
7
8
9
10
function ShowShortName(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = "ファイル名 : " + "" + f.Name;
   s += "" + "<br />";
   s += "短いファイル名 : " + "" + f.ShortName + "";
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
Function ShowShortName(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = "ファイル名 : " & "" & UCase(f.Name) & "" & "<br />"
   s = s & "短いファイル名 : " & f.ShortName
   ShowShortName = s
End Function

ShortPath

(PWS4 IIS4 IIS5)
ShortPath — 従来の 8.3 形式のファイル名が必要なプログラムのために、短いパス名を返します。

構文

object.ShortPath

パラメータ

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

戻り値

パス名を返します。

説明

パス中のディレクトリ名が8文字よりも長い場合、チルダ「~」を使用して8文字に短縮して返します。

JScript

1
2
3
4
5
6
7
8
9
10
function ShowShortPath(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(filespec);
   s = "パス名 : " + "" + f.Name;
   s += "" + "<br />";
   s += "短いパス名 : " + "" + f.ShortPath + "";
   return(s);
}

VBScript

1
2
3
4
5
6
7
8
Function ShowShortPath(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = "パス名 : " & "" & UCase(f.Name) & "" & "<br />"
   s = s & "短いパス名 : " & f.ShortPath
   ShowShortPath = s
End Function

Path

(PWS4 IIS4 IIS5)
Path — 指定されたフォルダのパスを返します。

構文

object.Path

パラメータ

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

戻り値

フォルダのパスを返します。

説明

フォルダの完全なパスを返します。

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() + "<br />";
   s += "作成日時 : " + f.DateCreated + "<br />";
   s += "最終アクセス日時 : " + f.DateLastAccessed + "<br />";
   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) & "<br />"
   s = s & "作成日時 : " & f.DateCreated & "<br />"
   s = s & "最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

ParentFolder

(PWS4 IIS4 IIS5)
ParentFolder — 指定されたフォルダが格納されているフォルダを表す Folder オブジェクトを返します。値の取得のみ可能です。

構文

object.ParentFolder

パラメータ

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

戻り値

ディレクトリ名を返します。

説明

フォルダがあるディレクトリ名を返します。

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.Name + " + f.ParentFolder + " に格納されています。<br />";
   s += "
作成日時 : " + f.DateCreated + "<br />";
   s += "
最終アクセス日時 : " + f.DateLastAccessed + "<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 = UCase(f.Name) & " & UCase(f.ParentFolder) & " に格納されています。<br />"
   s = s & "
作成日時 : " & f.DateCreated & "<br />"
   s = s & "
最終アクセス日時 : " & f.DateLastAccessed & "<br />"
   s = s & "
最終更新日時 : " & f.DateLastModified
   ShowFileAccessInfo = s
End Function