excel vba - Method File.Move (path) takes too long -

i have part code in excell

  if fso.fileexists(oldname) ' fso filesystemobject       cells(1, 3).value = "passed"       set source = fso.getfile(oldname)       source.move (newname)   end if 

where oldname somthing "c:\doc\file.txt" , newname "c:\doc\newname\file.txt"

directory c:\doc\newname contains ~20 000 txt files , line source.move (newname) takes 4min execute (file size 2kb, computer old...)
if use empty dir, code runs in second.

i not allowed use dir, , can't delete files it.

can explain why takes long, , options reduce time?

you can try this

if fso.fileexists(oldname) ' fso filesystemobject   cells(1, 3).value = "passed"   set source = fso.getfile(oldname)   name oldname newname 

end if

update

ok can try this:

if len(dir(oldname)) = 0     msgbox "file not exist" else     name oldname newname end if