ファイルシステムオブジェクト（FileSystemObject）

最終更新日：2019-07-18

第119回.ファイルシステムオブジェクト（FileSystemObject）

FileSystemObjectオブジェクトでは、コンピュータのファイルシステムへのアクセスが提供されています。
VBAに用意されているファイル操作関連のステートメントや関数より、
より強力で、より多くの機能が搭載されています。

ただし、機能が大変多いため、これらを全て覚えるという事は困難です。
一通り目を通して、どんな機能があるかだけを押さえておき、
必要になったら、その部分を調べるようにしてください。

FileSystemObjectオブジェクトの使用方法

使用方法１．

Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

使用方法２．

「ツール」→「参照設定」に、「Microsoft Scripting Runtime」にチェックを付ける。
Dim objFSO As New FileSystemObject
または、
Dim objFSO As FileSystemObject
Set objFSO = New FileSystemObject

基本的には、参照設定して使うようにして下さい。
VBEでのメンバー候補表示が有効になるので、調べやすくなりますし、入力も楽になります。

FileSystemObjectオブジェクトのプロパティとメソッド

FileSystemObjectオブジェクトのプロパティ

プロパティ	説明
Drives	ローカルマシンで利用できるすべての Drive オブジェクトが入った Drives コレクションを返します。

FileSystemObjectオブジェクトのメソッド

メソッド	説明	構文
BuildPath	既存のパスの末尾に名前を追加します	object.BuildPath(path, name)
CopyFile	ファイルを別の場所へコピーします。	object.CopyFile ( source, destination[, overwrite] )
CopyFolder	フォルダを再帰的に別の場所へコピーします。	object.CopyFolder ( source, destination[, overwrite] )
CreateFolder	フォルダを作成します。	object.CreateFolder(foldername)
CreateTextFile	指定した名前のファイルを作成し、作成したファイルの読み取りまたは書き込みに使用できる TextStream オブジェクトを返します。	object.CreateTextFile(filename[, overwrite[, unicode]])
DeleteFile	指定されたファイルを削除します。	object.DeleteFile ( filespec[, force] )
DeleteFolder	指定されたフォルダおよびそのフォルダ内のフォルダとファイルを削除します。	object.DeleteFolder ( folderspec[, force] )
DriveExists	指定されたドライブが存在する場合は、真 (true) を返します。存在しない場合は、偽 (false) を返します。	object.DriveExists(drivespec)
FileExists	指定したファイルが存在する場合は、真 (true) を返します。存在しない場合は、偽 (false) を返します。	object.FileExists(filespec)
FolderExists	指定されたフォルダが存在する場合は、真 (true) を返します。存在しない場合は、偽 (false) を返します。	object.FolderExists(folderspec)
GetAbsolutePathName	指定されたパスの絶対パス名を返します。	object.GetAbsolutePathName(pathspec)
GetBaseName	指定されたパス内に含まれるファイルのベース名 (ファイル拡張子を除いたもの) を表す文字列を返します。	object.GetBaseName(path)
GetDrive	指定されたパスに含まれるドライブに対応する Drive オブジェクトを返します。	object.GetDrive ( drivespec )
GetDriveName	指定されたパスのドライブ名を返します。	object.GetDriveName(path)
GetExtensionName	指定されたパスの拡張子を表す文字列を返します。	object.GetExtensionName(path)
GetFile	指定されたパスに置かれているファイルに対応する File オブジェクトを返します。	object.GetFile(filespec)
GetFileName	指定されたパスの最後のファイル名またはフォルダ名を返します。	object.GetFileName(pathspec)
GetFolder	指定されたパスに置かれているフォルダに対応する Folder オブジェクトを返します。	object.GetFolder(folderspec)
GetParentFolderName	指定されたパスの最後のファイルまたはフォルダの親フォルダの名前が入った文字列を返します。	object.GetParentFolderName(path)
GetSpecialFolder	指定された特殊フォルダを返します。	object.GetSpecialFolder(folderspec)
GetTempName	一時ファイルまたは一時フォルダの名前をランダムに生成して返します。このメソッドは、一時ファイルや一時フォルダを必要とする処理を行うときに便利です。	object.GetTempName ( )
MoveFile	ファイル (複数可) を別の場所へ移動します。	object.MoveFile ( source, destination )
MoveFolder	フォルダ (複数可) を別の場所へ移動します。	object.MoveFolder ( source, destination )
OpenTextFile	指定したファイルを開き、開いたファイルの読み取り、または追加書き込みに使用できる TextStream オブジェクトを返します。	object.OpenTextFile(filename[, iomode[, create[, format]]])

FileSystemObjectオブジェクトのメソッドの戻り値

FileSystemObjectオブジェクトのメソッドの戻り値としては、以下のオブジェクトがあります。
Driveオブジェクト
Folderオブジェクト
Fileオブジェクト
TextStreamオブジェクト
以下に、それぞれのオブジェクのメンバ（プロパティ、メソッド）の一覧を掲載しておきます。

Driveオブジェクト

プロパティ、メソッド	説明
AvailableSpace プロパティ	指定されたドライブまたはネットワーク共有でユーザーが使用できるディスク容量を返します。
DriveLetter プロパティ	物理ローカルドライブまたはネットワーク共有のドライブ名を返します。値の取得のみ可能です。
DriveType プロパティ	指定されたドライブの種類を示す値を返します。
FileSystem プロパティ	指定されたドライブに使用されているファイルシステムの種類を返します。
FreeSpace プロパティ	指定されたドライブまたはネットワーク共有でユーザーが使用できるディスクの空き境域を返します。値の取得のみ可能です。
IsReady プロパティ	指定されたドライブの準備ができている場合は真 (true) を返します。準備ができてない場合は偽 (false) を返します。
Path プロパティ	指定されたファイル、フォルダ、またはドライブのパスを返します。
RootFolder プロパティ	指定されたドライブのルートフォルダを表す Folder オブジェクトを返します。値の取得のみ可能です。
SerialNumber プロパティ	ディスクボリュームを一意に識別する小数のシリアル番号を返します。
ShareName プロパティ	指定されたドライブのネットワーク共有名を返します。
TotalSize プロパティ	ドライブまたはネットワーク共有の総容量をバイト単位で返します。
VolumeName プロパティ	指定されたドライブのボリューム名を設定または返します。値の取得も可能です。

Folderオブジェクト

プロパティ、メソッド	説明
Attributes プロパティ	ファイルまたはフォルダの属性を設定します。値の取得も可能です。属性によっては、値の取得のみ可能な場合もあります。
DateCreated プロパティ	指定されたファイルまたはフォルダの作成された日付と時刻を返します。値の取得のみ可能です。
DateLastAccessed プロパティ	指定されたファイルまたはフォルダが最後にアクセスされたときの日付と時刻を返します。値の取得のみ可能です。
DateLastModified プロパティ	指定されたファイルまたはフォルダが最後に更新されたときの日付と時刻を返します。値の取得のみ可能です。
Drive プロパティ	指定されたファイルまたはフォルダが格納されているドライブの名前を返します。値の取得のみ可能です。
Files プロパティ	指定されたフォルダ内にあるすべての File オブジェクトの入った Files コレクションを返します。このコレクションには、隠しファイルやシステムファイルの属性を持つ File オブジェクトも含まれます。
IsRootFolder プロパティ	指定されたフォルダがルートフォルダの場合は、真 (true) を返します。ルートフォルダでなければ、偽 (false) を返します。
Name プロパティ	指定されたファイルまたはフォルダの名前を設定します。値の取得も可能です。
ParentFolder プロパティ	指定されたファイルまたはフォルダが格納されているフォルダを表す Folder オブジェクトを返します。値の取得のみ可能です。
Path プロパティ	指定されたファイル、フォルダ、またはドライブのパスを返します。
ShortName プロパティ	従来の 8.3 形式のファイル名が必要なプログラムのために、短いファイル名を返します。
ShortPath プロパティ	従来の 8.3 形式のファイル名が必要なプログラムのために、短いパス名を返します。
Size プロパティ	ファイルの場合、指定されたファイルのバイト単位のサイズを返します。フォルダの場合、指定されたフォルダ内のすべてのファイルおよびフォルダの合計サイズをバイト単位で返します。
SubFolders プロパティ	指定されたフォルダ内にあるすべてのフォルダの入った Folders コレクションを返します。このコレクションには、隠しファイルやシステムファイルの属性を持つフォルダも含まれます。
Type プロパティ	ファイルまたはフォルダの種類に関する情報を返します。たとえば、名前が .TXT の拡張子で終わるファイルの場合なら、"テキスト文書" という文字列が返されます。
Copy メソッド	指定したファイルまたはフォルダを別の場所にコピーします。
Delete メソッド	指定されたファイルまたはフォルダを削除します。
Move メソッド	指定されたファイルまたはフォルダを別の場所へ移動します。
OpenAsTextStream メソッド	指定したファイルを開き、開いたファイルの読み取り、または追加書き込みに使用できる TextStream オブジェクトを返します。

Fileオブジェクト

プロパティ、メソッド	説明
Attributes プロパティ	ファイルまたはフォルダの属性を設定します。値の取得も可能です。属性によっては、値の取得のみ可能な場合もあります。
DateCreated プロパティ	指定されたファイルまたはフォルダの作成された日付と時刻を返します。値の取得のみ可能です。
DateLastAccessed プロパティ	指定されたファイルまたはフォルダが最後にアクセスされたときの日付と時刻を返します。値の取得のみ可能です。
DateLastModified プロパティ	指定されたファイルまたはフォルダが最後に更新されたときの日付と時刻を返します。値の取得のみ可能です。
Drive Property	指定されたファイルまたはフォルダが格納されているドライブの名前を返します。値の取得のみ可能です。
Name プロパティ	指定されたファイルまたはフォルダの名前を設定します。値の取得も可能です。
ParentFolder プロパティ	指定されたファイルまたはフォルダが格納されているフォルダを表す Folder オブジェクトを返します。値の取得のみ可能です。
Path プロパティ	指定されたファイル、フォルダ、またはドライブのパスを返します。
ShortName プロパティ	従来の 8.3 形式のファイル名が必要なプログラムのために、短いファイル名を返します。
ShortPath プロパティ	従来の 8.3 形式のファイル名が必要なプログラムのために、短いパス名を返します。
Size プロパティ	ファイルの場合、指定されたファイルのバイト単位のサイズを返します。フォルダの場合、指定されたフォルダ内のすべてのファイルおよびフォルダの合計サイズをバイト単位で返します。
Type プロパティ	ファイルまたはフォルダの種類に関する情報を返します。たとえば、名前が .TXT の拡張子で終わるファイルの場合なら、"テキスト文書" という文字列が返されます。
Copy メソッド	指定したファイルまたはフォルダを別の場所にコピーします。
Delete メソッド	指定されたファイルまたはフォルダを削除します。
Move メソッド	指定されたファイルまたはフォルダを別の場所へ移動します。
OpenAsTextStream メソッド	指定したファイルを開き、開いたファイルの読み取り、または追加書き込みに使用できる TextStream オブジェクトを返します。

TextStreamオブジェクト

プロパティ、メソッド	説明
AtEndOfLine プロパティ	TextStream ファイル内でファイルポインタが行末 (EOL) の直前に置かれている場合に真 (true) を返します。それ以外の場合は、偽 (false) を返します。値の取得のみ可能です。
AtEndOfStream プロパティ	TextStream ファイル内でファイルポインタがファイルの最後に置かれている場合に真 (true) を返します。それ以外の場合は、偽 (false) を返します。値の取得のみ可能です。
Column プロパティ	TextStream ファイル内での現在の文字位置のカラム番号を返します。値の取得のみ可能です。
Line プロパティ	TextStream ファイル内での現在の行番号を返します。値の取得のみ可能です。
Close メソッド	開いた状態の TextStream ファイルを閉じます。
Read メソッド	TextStream ファイルから指定された文字数を読み込み、その結果の文字列を返します。
ReadAll メソッド	TextStream ファイル全体を読み込み、その結果の文字列を返します。
ReadLine メソッド	TextStream ファイルから 1 行 (改行文字を除く) を読み込み、その結果の文字列を返します。
Skip メソッド	TextStream ファイルを読み込むときに指定された数の文字数をスキップします。
SkipLine メソッド	TextStream ファイルを読み込むときに次の行をスキップします。
Write メソッド	指定した文字列を TextStream ファイルに書き込みます。
WriteBlankLines メソッド	指定された数の改行文字を TextStream ファイルに書き込みます。
WriteLine メソッド	指定した文字列と改行文字を TextStream ファイルに書き込みます。

FileSystemObjectオブジェクトの使用例

指定フォルダ直下のサブフォルダとファイルを一覧出力


  
    
      Sub フォルダとファイル一覧取得()

      　　Dim objFSO As FileSystemObject

      　　Dim objFolder As Folder

      　　Dim objFolderSub As Folder

      　　Dim objFile As File

      　　Dim strDir As String

      　　Dim i As Long

      　　

      　　strDir = "フォルダをフルパスで指定"

      　　Set objFSO = New FileSystemObject

      　　If Not objFSO.FolderExists(strDir) Then

      　　　　MsgBox ("指定のフォルダは存在しません")

      　　　　Exit Sub

      　　End If

      　　i = 2 'シートの2行目から出力

      　　

      　　'サブフォルダ一覧

      　　Set objFolder = objFSO.GetFolder(strDir)

      　　For Each objFolderSub In objFolder.SubFolders

      　　　　Cells(i, 2) = objFolderSub.Name

      　　　　i = i + 1

      　　Next

      　　'ファイル一覧

      　　For Each objFile In objFolder.Files

      　　　　With objFile

      　　　　　　Cells(i, 2) = .Name

      　　　　　　Cells(i, 3) = .Size

      　　　　　　Cells(i, 4) = .DateLastModified

      　　　　　　i = i + 1

      　　　　End With

      　　Next

      　　

      　　Set objFSO = Nothing

      　　Set objFolder = Nothing

      　　Set objFolderSub = Nothing

      End Sub

キストファイルの読み込みイミディエイトに出力


  
    
      Sub テキストファイルの読み込み()

　　Dim objFSO As New FileSystemObject

　　Dim inTS As TextStream

　　Dim strFile As String

　　Dim strText As String

　

　　strFile = "C:\excel-ubara\xcopy_d.bat"

　　Set objFSO = New FileSystemObject

　　If Not objFSO.FileExists(strFile) Then

　　　　MsgBox ("指定のファイルは存在しません")

　　　　Exit Sub

　　End If

　　Set inTS = objFSO.OpenTextFile(strFile, ForReading)

　　strText = inTS.ReadAll

　　Debug.Print strText

End Sub

FileSystemObjectオブジェクトの関連記事と実践例

以下は、VBAサンプル・VBA技術解説でFileSystemObjectオブジェクト使用しているページになります。
フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除

VBAでフォルダを削除するにはRmDirステートメントを使いますがサブフォルダやファイルが入っている場合はRmDirはエラーとなりますそこでサブフォルダやファイルがある場合はFileSystemObjectを使います。以下のサンプル使用時には「ツール」→「参照設定」で「MicrosoftScriptingRuntime」にチェックを付けてください。

フルパスをディレクトリ、ファイル名、拡張子に分ける

ファイルのフルパスを、ディレクトリ、ファイル名、拡張子に分けます。FileSystemObjectを使う方法と、VBA関数で分けるVBAのサンプルコードになります。順に、C:\Users\hogehoge\Desktop サンプル.txt サンプル txt と表示されます。

CSVの読み込み方法（改の改）

CSVのVBAでの読込方法については複数の記事を掲載しており、人気記事として多くのアクセスがあります。掲載しているVBAコードは汎用的に書いてあり、ほぼそのまま使用できるものです。しかし、CSVは多くの形式（区切り文字、文字コード等）があり、今まで掲載したコードでは解決出来ないものがあります。

Dir関数の使い方と合わせてファイル操作全般を学習するには、以下のシリーズ良いでしょう。。
FileSystemObjectオブジェクトが出てくるのは、№6からになります。