VBS for Check the zide and move files

[parscon]

Hi , Hope all are fine . I have thsi VBS it check files with xml extention and if their size is 100 their move to new location but it gave me error can you please help me




Set fso = CreateObject("Scripting.FileSystemObject")

dir = "C:\Users\Admin\AppData\Local\Temp"

For Each f In fso.GetFolder(dir).Files
If f.Size > 100 And fso.GetExtensionName(f) = "xml" Then
f.MoveFile "C:\Users\Admin\Desktop\Source"
End If
Next