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