Microsoft vbscript runtime error: object required: '[string: "advfee.txt"]'

See more:

VBScript

Dim oFile, oFilesys,oFileADVFEEMAA, oFileADVFEE
set oFilesys = CreateObject("Scripting.FileSystemObject")
wscript.echo "Line 2"
set oFileADVFEEMAA = oFilesys.GetFile ("D:\NDM\Upload\BPS_JE\BPSFile\ADVFEEMAA.txt")
wscript.echo "Line 3"
set oFileADVFEE= oFilesys.GetFile ("D:\NDM\Upload\BPS_JE\BPSFile\ADVFEE.txt")
wscript.echo "Line 4"
set oFile = oFilesys. GetFileName(oFileADVFEE.Name) –“ Microsoft VBScript runtime error: Object required: '[string: "ADVFEE.txt"]'”---errror here
wscript.echo "File Name “ & oFile
if oFileADVFEEMAA.Size = 1 Then
oFileADVFEEMAA.Delete
wscript.echo "ADVFEEMAA file is Deleted."
wscript.quit 0
Else
If oFileADVFEEMAA.Size>1 and oFileADVFEE.Size >1 Then
wscript.echo "Problem 2 ADVFEE files with data."
wscript.quit 1
Else
If oFileADVFEEMAA.Size>1 and oFileADVFEE.Size = 1 Then
oFileADVFEE.Delete
oFileADVFEEMAA.Name = oFile
script.echo " ADVFEEMAA renamed to " & oFileADVFEEMAA.Name
wscript.quit 0
End If
End If
End If

What I have tried:

Dim oFile, oFilesys,oFileADVFEEMAA, oFileADVFEE
set oFilesys = CreateObject("Scripting.FileSystemObject")
wscript.echo "Line 2"
set oFileADVFEEMAA = oFilesys.GetFile ("D:\NDM\Upload\BPS_JE\BPSFile\ADVFEEMAA.txt")
wscript.echo "Line 3"
set oFileADVFEE= oFilesys.GetFile ("D:\NDM\Upload\BPS_JE\BPSFile\ADVFEE.txt")
wscript.echo "Line 4"
set oFile = oFilesys. GetFileName(oFileADVFEE.Name) –“ Microsoft VBScript runtime error: Object required: '[string: "ADVFEE.txt"]'”---errror here
wscript.echo "File Name “ & oFile
if oFileADVFEEMAA.Size = 1 Then
oFileADVFEEMAA.Delete
wscript.echo "ADVFEEMAA file is Deleted."
wscript.quit 0
Else
If oFileADVFEEMAA.Size>1 and oFileADVFEE.Size >1 Then
wscript.echo "Problem 2 ADVFEE files with data."
wscript.quit 1
Else
If oFileADVFEEMAA.Size>1 and oFileADVFEE.Size = 1 Then
oFileADVFEE.Delete
oFileADVFEEMAA.Name = oFile
script.echo " ADVFEEMAA renamed to " & oFileADVFEEMAA.Name
wscript.quit 0
End If
End If
End If