' 指定フォルダのパスstrFolderPath = "C:\Users\username\Documents" ' 指定フォルダ内のファイルを取得Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.GetFolder(strFolderPath)Set objFiles = objFolder.Files ' ファイ…