принципиально ли это делать через VBA?
я для такой задачи много лет назад создал батник
set Path=\\Server666\PASSPORTS\%date%
set Temp=c:\TMP6
md %Temp%
md %Path%
"C:\Program Files (x86)\IrfanView\i_view32.exe" /scanhidden /convert=%Temp%\001.gif
copy %Temp%\001.gif %Path%\%random%.gif
del %Temp%\001.gif /Q /F
сканирует через irfanview, настройки сканирования задаются там же
