VBSメモ

(for Internet Explorer)

ファイルをコピーします

ファイルを移動します

フォルダを移動します

フォルダが存在するかどうかを返します

ファイルを削除します

フォルダをコピーします

ファイルが存在するかどうかを返します

Set g_fs = CreateObject("Scripting.FileSystemObject")

オブジェクトの取得

フォルダを作成します。

WSH だけでなく VBA でも使えます。

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "ipLibCom.h", "..\..\..\inc\ipLibCom.h", True
Set fs = Nothing

新しくできるファイル名も含める

src から dst にファイルをコピーします。

Sub FileSystemObject::CopyFile( src as string, dst as string [, overwrite as Bool] )

コピーするファイルのパス（コピー元、ワイルドカード可）

コピー先のファイルのパス

上書きするかどうか。デフォルト True (*1)

False のとき、上書きしようとするとエラーになります。

src に指定したファイルが無いとき、エラー 76

src から dst にフォルダをコピーします。

Sub FileSystemObject::CopyFolder( src as string, dst as string [, overwrite as Bool] )

コピーするフォルダのパス（コピー元、ワイルドカード可(*2)）

コピー先のフォルダのパス

上書きするかどうか。デフォルト True (*1)

False のとき、上書きしようとするとエラーになります。

ワイルドカードは、コピー先にマッチしないときに限り使えます。

Function FileSystemObject::FileExists( path as string ) as Boolean

ファイルが存在するかどうかを返します。
ワイルドカードは使えません。

→ Dir - ファイルの有無 (Excel)

Function FileSystemObject::FolderExists( path as string ) as Boolean

フォルダが存在するかどうかを返します。
ワイルドカードは使えません。

Sub FileSystemObject::MoveFile( src as string, dst as string )

src から dst にファイルを移動します。

移動するファイル（移動元、ワイルドカード可）

移動先のファイルパス（フォルダのときは、最後に \）

Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile "ipLibCom.h", "..\..\..\inc\ipLibCom.h"
Set fs = Nothing

新しくできるファイル名も含める

ドライブをまたぐときは、エラーになります

フォルダを移動します。
使い方は、

フォルダを作成します。

すでにフォルダがあるときは、エラーになります。

Dim g_fs : Set g_fs = CreateObject( "Scripting.FileSystemObject" )
If not g_fs.FolderExists( path **** ) Then g_fs.CreateFolder path ****

Set fs = CreateObject("Scripting.FileSystemObject")
WScript.Echo fs.GetFileName( "aa\bb.txt" ) // bb.txt と表示

パスの最後の部分（ファイル名、またはフォルダ名）を返します。

Funtcion FileSystemObject::GetFileName( Path as string ) as string

FileSystemObject::GetExtensionName

Dim ext : ext = g_fs.GetExtensionName( path )

Funtcion FileSystemObject::GetExtensionName( Path as string ) as string

ファイルパスから拡張子を取り出します。

"C:\folder\file.txt"

"C:\folder.files\file"

Function FileSystemObject::GetFile( path as string ) as File

指定したパスに対応するファイルオブジェクトを返します。

Function FileSystemObject::GetFolder( path as string ) as Folder

指定したパスに対応するフォルダー・オブジェクトを返します。

指定したパスにフォルダーが無いときはエラーになります。

Function FileSystemObject::GetParentFolderName( path as string ) as string

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

"C:\folder\file.txt"

"C:/folder/file.txt"

"http://www.a.com/a.htm"

ファイル名だけのときは "" が返るため、次のようなコードは避けてください。

g_fs.GetParentFolderName( fname ) +"\"+ g_fs.GetBaseName( exe_base_name )

Function FileSystemObject::OpenTextFile( path as string, [iomode as integer],
[b_create as boolean], [unicode as integer] ) as TextStream

ファイルを開きます。ファイルの作成または読み込みを開始します。

ファイルのパス

1=リード、2=ライト、8=追加、省略時=1

ファイルが無いときにエラーに「しない」かどうか

TextStream オブジェクト

True=Unicode, False=Ascii, -2=自動判定

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Function FileSystemObject::CreateTextFile( path as string,
[b_overwrite as boolean], [b_unicode as boolean] ) as TextStream

ファイルを作成します。

ファイルのパス

上書きするかどうか, デフォルト=False

TextStream オブジェクト

True=Unicode, False=Ascii, デフォルト=False

b_overwrite = False にして、ファイルがすでに存在していたときは、エラー

path のファイルを格納するフォルダが存在しないときは、エラー

Sub FileSystemObject::DeleteFile( path as string, [force as boolean] )

ファイルを削除します。

削除するファイルのパス

True なら、リードオンリーでも強制削除

path に指定したパスに、ファイルが存在しないとエラーになります。

読み取り専用になっているファイルを指定すると、エラー70になります。

Sub FileSystemObject::DeleteFolder( path as string, [force as boolean] )

フォルダを削除します。

削除するフォルダのパス

True なら、リードオンリーでも強制削除

フォルダの中にファイルがあっても削除します。

Function FileSystemObject::GetTempName() as string

ファイル名(8.3形式)に使えるランダムな文字列を返します。

ファイルサイズ（バイト）
拡張子の説明。例："テキストドキュメント"

.Copy
.Delete
.Move
.OpenAsTextStream

.Path
.Name
.ShortPath
.ShortName

フルパス（処理が遅いです）
ファイル名。フォルダパスを除いたもの。例：a.txt （処理が遅いです）
フルパス（8.3形式）
ファイル名（8.3形式）

Drive オブジェクト
親フォルダ（

作成日時（取得のみ）
更新日時（取得のみ）
アクセス日時（取得のみ）

.Drive
.ParentFolder

.DateCreated
.DateLastModified
.DateLastAccessed

File オブジェクトは、

で、取得できます。

Set g_fs = CreateObject("Scripting.FileSystemObject")
Set file = g_fs.GetFile( "list.txt" )
WScript.Echo file.DateLastModified

属性。読み取り専用、隠しファイルなど

Dim File::DateLastModified as Date

Set g_fs = CreateObject("Scripting.FileSystemObject")
Set file = g_fs.GetFile( "list.txt" )
WScript.Echo file.DateLastModified

Set g_fs = CreateObject("Scripting.FileSystemObject")
WScript.Echo g_fs.GetFile( "list.txt" ).DateLastModified

タイムスタンプに依存するテストは、ソースのバージョン管理ソフトを使うと、
正しく動かない可能性があります。なぜなら、バージョン管理ソフトは
タイムスタンプを勝手に変えてしまうからです。

この問題に対処するには、テストで使うファイルを zip 圧縮しておきます。

更新日時。このプロパティは、読み取り専用です。

Dim File::Attributes as Long

属性。読み取り専用、隠しファイルなど

Set g_fs = CreateObject("Scripting.FileSystemObject")
Set file = g_fs.GetFile( path )
file.Attributes = file.Attributes or ReadOnly
file = Empty

などが使えます

Set g_fs = CreateObject("Scripting.FileSystemObject")
SetFilesToNotReadOnly g_fs.GetFolder( "C:\folder" )

Sub SetFilesToNotReadOnly( folder )
For Each file In folder.Files
file.Attributes = file.Attributes and not ReadOnly
Next
For Each sub_folder In folder.SubFolders
SetFilesToNotReadOnly sub_folder
Next
End Sub

Set g_fs = CreateObject("Scripting.FileSystemObject")
is_read_only = ( ( g_fs.GetFile( path ).Attributes and ReadOnly ) <> 0 )

Set g_fs = CreateObject("Scripting.FileSystemObject")
Set file = g_fs.GetFile( path )
file.Attributes = file.Attributes and not ReadOnly
file = Empty

.DateCreated
.DateLastModified
.DateLastAccessed

.Copy
.Delete
.Move
.OpenAsTextStream

.Size
.Type
.Attributes

直下のファイル（
直下のサブフォルダ（Folder オブジェクト）のコレクション

.Path
.Name
.ShortPath
.ShortName

フルパス（処理が遅いです）
フォルダ名（処理が遅いです）
フルパス（8.3形式）
フォルダ名（8.3形式）

.Drive
.ParentFolder
.IsRootFolder

.Files
.SubFolders

Drive オブジェクト
親フォルダ（Folder オブジェクト）

作成日時（取得のみ）
更新日時（取得のみ）
アクセス日時（取得のみ）

）のコレクション

Folder オブジェクトは、FileSystemObject::GetFolder で、取得できます。

フォルダが削除されると、Folder オブジェクトのメンバーにはアクセスできなくなります。

Set g_fs = CreateObject("Scripting.FileSystemObject")
Set folder = g_fs.GetFolder( "C:\folder" )

For Each i In Folder::Files

フォルダの中のファイルの数。サブフォルダの中は除く

File オブジェクトを参照する

Function Folder::Files.Item( FileName as string ) as File

FileName で指定したファイル名に一致するファイルオブジェクトを返します。

注意： FileName に変数を指定するときは、次のように型を指定してください。

Dim fo, fname
Set fo = g_fs.GetFolder( folder_path )
fname = "1.txt"
Set f = fo.Files.Item( CStr( fname ) )

Dim Folder::SubFolders as Folders

直下のサブフォルダ。

Set folder = g_fs.GetFolder( "." )
For Each sub_folder In folder.SubFolders '// sub_folder as Folder
echo sub_folder.Name
Next

echo folder.SubFolders.Count