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