Option Explicit Const conForReading = 1 Dim objFSO, objReadFile, objFile, contents, result, shell Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("C:\read.txt") If objFile.Size Then Set objReadFile =...