MS Excel

šlo, iste, napríklad takto, ale spôsobov je ako vždy spústa:Sub PresunPDF()
Dim PdfFile As String
On Error GoTo chyba
PdfFile = Dir("C:\faktury\*.pdf")
Do While PdfFile <> ""
FileCopy "C:\faktury\" & PdfFile, "C:\stare_faktury\dnesni_datum\" & PdfFile
Kill "C:\faktury\" & PdfFile
PdfFile = Dir
Loop
Exit Sub
chyba: MsgBox Err.Number & " " & Err.Description
End Sub Pri teste radšej zakomentujte inštrukciu kill (maže súbor) a vráťte ju tam až po tom, čo to otestujete!!! Malo by to fungovať bez problemov, ale človek nikdy nevie, zvlášť pri mazaní súborov to chce opatrnosť...

Dá sa i elegantnejšie. Za predpokladu, že adresár C:\faktury\ obsahuje iba pdf súbory s faktúrami, t.j. všetky súbory v danom adresári sa akože majú presunúť do nového adresára, tak stačí adresár premenovať a nanovo ho vytvoriť, takto nejak:Sub AkozePresun()
On Error GoTo chyba
Name "C:\faktury\" As "C:\stare_faktury\dnesni_datum\"
MkDir "C:\faktury\"
Exit Sub
chyba: MsgBox Err.Number & " " & Err.Description
End Sub Ako som zmienil, spôsobov je viacero citovat