Microsoft Scripting Runtime

Excel VBA

2024.02.122024.09.14

Scripting.FileSystemObject を使用している場合、初期設定ではエラーが発生するので
「ツール」-「参照設定」-「Microsoft Scripting Runtime」にチェックを入れて、OKします。

エラーが発生するので、Visual Basic の画面から設定を行います。

Microsoft Scripting Runtime を使用しない場合は、次の方法も使用できますが、ヒントがでなくなります。
関数化する場合は、使いまわせるようにMicrosoft Scripting Runtime を使用しない方法を使用するのも良いと思います。使いまわす度にエラーが出て参照設定を変更すると面倒になるので。

' ------------------------------------------------------------
' 説明：ファイルの有無を確認する
' 引数：1:確認するファイル名
' 戻値：ファイルがある場合:True
'       ファイルが無い場合:False
' ------------------------------------------------------------
Function IsFileExists(filename As String) As Boolean
	Dim fso As Object
	Set fso = CreateObject("Scripting.FileSystemObject")

	IsFileExists = fso.FileExists(filename)     ' ファイルの有無を確認
End Function

Microsoft Scripting Runtime を使用すると、ヒントが出る

【参照設定を使用する場合】

    Dim fso As FileSystemObject
    Set fso = New FileSystemObject    ' オブジェクトの作成

【参照設定を使用しない場合】

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")    ' オブジェクトの作成