【EXCEL VBA】特定のフォルダの配下に対象のファイルが存在していれば、特定の処理を実施　※FSOやDir関数より高速

RedCat

以下のコードで可能です。

Dim FOLDERNAME As String
Dim FILENAME As String
FOLDERNAME = "C:\Users\******\Desktop\ws153a\"
FILENAME = "WinShat.txt"

Dim myFSO As Object
Dim myFSO_FILEPATH
Dim myFSO_EXISTS

Set myFSO = CreateObject("Scripting.FileSystemObject")

'FSOオブジェクトでフォルダパスを結合する場合、以下のコードが必須
myFSO_FILEPATH = myFSO.BuildPath(FOLDERNAME, FILENAME)

'対象のファイルが存在する場合、「myFSO_EXISTS」変数の中身は『True』
myFSO_EXISTS = myFSO.FileExists(myFSO_FILEPATH)
If myFSO_EXISTS = "True" Then
   '処理を入れる
End If

この記事が気に入ったらサポートをしてみませんか？