第119回.ファイルシステムオブジェクト（FileSystemObject）
FileSystemObjectオブジェクトでは、コンピュータのファイル システムへのアクセスが提供されています。
VBAに用意されているファイル操作関連のステートメントや関数より、
より強力で、より多くの機能が搭載されています。
一通り目を通して、どんな機能があるかだけを押さえておき、
必要になったら、その部分を調べるようにしてください。
目次
FileSystemObjectオブジェクトの使用方法
使用方法１．
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
使用方法２．
「ツール」→「参照設定」に、「Microsoft Scripting Runtime」にチェックを付ける。
Dim objFSO As New FileSystemObject
または、
Dim objFSO As FileSystemObject
Set objFSO = New FileSystemObject
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 | 指定されたフォルダおよびそのフォルダ内のフォルダとファイルを削除します。 読み取り専用属性が設定されているフォルダーを削除する場合は forceにTrueを指定します。省略時はFalseです。 |
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オブジェクト
以下で、それぞれのオブジェクのメンバ（プロパティ、メソッド）の一覧を掲載しておきます。
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 | 指定されたファイルまたはフォルダが格納されているドライブの名前を返します。 値の取得のみ可能です。 |
| 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でファイルのみ削除
Dir関数の使い方と合わせてファイル操作全般を学習するには、以下のシリーズが良いでしょう。
FileSystemObjectオブジェクトが出てくるのは、№6からになります。
VBA100本ノックでもFileSystemObjectは多く使用していくす。
フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除
VBAでフォルダを削除するにはRmDirステートメントを使いますが、サブフォルダやファイルが入っている場合は、RmDirはエラーとなります。そこで、サブフォルダやファイルがある場合は、FileSystemObjectを使います。以下のサンプル使用時には、「ツール」→「参照設定」で、「MicrosoftScripti…
フルパスをディレクトリ、ファイル名、拡張子に分けるファイルのフルパスを、ディレクトリ、ファイル名、拡張子に分けます。FileSystemObjectを使う方法と、VBA関数（InStrRev）で分けるVBAのサンプルコードになります。FileSystemObject 順に、C:\Users\hogehoge\Desktop サンプル.txt サンプル txt と表…
CSVの読み込み方法（改の改）CSVのマクロVBAでの読込方法については複数の記事を掲載しており、人気記事として多くのアクセスがあります。掲載しているVBAコードは汎用的に書いてあり、ほぼそのまま使用できるものです。しかし、CSVは多くの形式（区切り文字、文字コード等）があり、今まで掲載したコードでは解決出来ないものがあります。
Dir関数の使い方と合わせてファイル操作全般を学習するには、以下のシリーズが良いでしょう。
FileSystemObjectオブジェクトが出てくるのは、№6からになります。
- エクセルでファイル一覧を作成 №1
- エクセルでファイル一覧を作成 №2
- エクセルでファイル一覧を作成 №3
- エクセルでファイル一覧を作成 №4
- エクセルでファイル一覧を作成 №5
- エクセルでファイル一覧を作成 №6
- エクセルでファイル一覧を作成 №7
- エクセルでファイル一覧を作成 №8
- エクセルでファイル一覧を作成 №9
- エクセルでファイル一覧を作成 №10
VBA100本ノックでもFileSystemObjectは多く使用していくす。
VBA100本ノック 20本目：ブックのバックアップ
開いているブックのバックアップファイルを作成する問題です。フォルダーの作成も行います。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。
VBA100本ノック 21本目：バックアップファイルの削除開いているブックの古いバックアップファイルを削除する問題です。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。
VBA100本ノック 26本目：ファイル一覧作成指定フォルダ内のファイル一覧を作成する問題です。Excelファイルにはハイパーリンクを設定します。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。
VBA100本ノック 57本目：ファイルの更新日時バックアップファイルの各更新日付の最終時刻のファイルだけを残し、他を削除する問題です。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。
VBA100本ノック 66本目：全サブフォルダからファイルを探すブック自身のあるフォルダ以下の全サブフォルダを検索する問題です。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。
VBA100本ノック 84本目：ブックの自動バックアップブックが保存される時に自動的にバックアップを作成し30世代だけ残す問題です。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。
VBA100本ノック 89本目：2つのフォルダの統合2つのフォルダをサブフォルダも含めて統合する問題です。同一フォルダに同じファイル名が存在する場合は更新日時のより新しいファイルを採用します。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
同じテーマ「マクロVBA入門」の記事
第116回.ファイル操作Ⅱ（OpenとClose）
第117回.ファイル操作Ⅱ（Line Input #）
第118回.ファイル操作Ⅱ（Print #）
第119回.ファイルシステムオブジェクト（FileSystemObject）
第120回.OnTimeメソッド
第121回.SendKeysメソッドとAppActivateステートメント
第122回.Shell関数
第123回.APIについて（Win32API）
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
第130回.テーブル操作の概要（ListObject）
新着記事NEW ・・・新着記事一覧を見る
VLOOKUPを使うことを基本としてシートを設計すべきか｜エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い｜エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法｜エクセル雑感(2021-08-13)
ADOでテキストデータを集計する｜VBAサンプル集(2021-08-04)
VBA学習のお勧めコース｜エクセル雑感(2021-08-01)
エクセル馬名ダービー｜エクセル雑感(2021-07-21)
在庫を減らせ！毎日棚卸ししろ！｜エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について｜エクセル雑感(2021-06-26)
DXってなんだ? ITと何が違うの?｜エクセル雑感(2021-06-24)
エクセルVBA 段級位 目安｜エクセル雑感(2021-06-21)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。