Пропустить пустой файл

Function Potreblenie(arrayOps,  Potreblenie_Qual)
Const ForReading = 1
Link = arrayOps(2).Value    '.input
Set objFSO =CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Link, ForReading)
 
strText = objTextFile.ReadAll
objTextFile.Close
Potreblenie = CDbl(strText)*2/1000
End Function

 Function Potreblenie(arrayOps,  Potreblenie_Qual)
Const ForReading = 1
Link = arrayOps(2).Value    '.input
 Dim objFso
    Dim f
 
    Set objFso = CreateObject("Scripting.FileSystemObject")
 
    Set f = objFso.GetFile(Link)
if f.Size > 0 then
Set objTextFile = objFSO.OpenTextFile(Link, ForReading)
strText = objTextFile.ReadAll
objTextFile.Close
Potreblenie = CDbl(strText)*2/1000
End if
End Function

const wFolder = "G:\CYBER_FORUM\SKADA" 'папка, где лежат файлы для обработки
const ZeroLenthFolderName = "G:\CYBER_FORUM\SKADA\ZEROFILES" 'путь к УЖЕ СУЩЕСТВУЮЩЕЙ папке, куда переносить пустышки
const wExt = "*.txt" 'расширение файлов для обработки
Set wDir = CreateObject("Shell.Application").NameSpace(wFolder)
Set oFiles = wDir.Items 'список файлов
oFiles.Filter 64, wExt'выбираем только файлы с заданым расширением 
If oFiles.Count < 1 Then WSH.Quit 'если файлов в папке нет - на выход
Set zDir=CreateObject("Shell.Application").NameSpace(ZeroLenthFolderName) 'объект - папка куда переносить пустышки
for each ZF in oFiles 'перебираем файлы 
  if wDir.GetDetailsOf(ZF,1) = "0 байт" Then 'если размер вот такой
    zDir.MoveHere ZF, 4124 'перенесём файл в спецпапку
  end if
next

Function Potreblenie(arrayOps, Potreblenie_Qual)
  With CreateObject("Scripting.FileSystemObject").OpenTextFile(arrayOps(2).Value)
    If Not .AtEndOfStream Then Potreblenie = CDbl(.ReadAll)/500
    .Close
  End With
End Function