Kopirovani JEN nejnovejsi slozky z vybraneho adresare – Visual Basic – Fórum – Programujte.com

Dobry den,

potreboval bych nejak udelat aby se kopirovala pouze posledni slozka podle data vytvoreni do urcite slozky na jinem disku. samotne kopirovani neni problem jen nevim jak zapsat aby se kopirovala jen nejnovejsi slozka.Dekuji



Option Explicit
Dim oFS, cNowDate, cMainBackupFolder, cLocaluserFolder, cFolderName, cBackupFolder, oGF

Set oFS = CreateObject("Scripting.FileSystemObject")
cNowDate=year(now)& _
string(2-len(month(now)),"0")&month(now)& _
string(2-len(day(now)),"0")&day(now)
cMainBackupFolder="C:\Zaloha\"

cLocalUserFolder="C:\ret"
cBackupFolder=cMainBackupFolder & cNowDate
oFs.CreateFolder(cBackupFolder)

call CopyFolder()

Sub CopyFolder()
set oGF=oFS.GetFolder(cLocalUserFolder)
if oGF.files.count=<0 and oGF.SubFolders.count=<0 then
msgbox("Neexistují žádné soubory k zalohovani")
end if

if not oFS.FolderExists(cMainBackupFolder) then
oFS.CreateFolder cMainBackupFolder
end if


oFS.CopyFolder cLocalUserFolder, cBackupFolder

msgbox("Záloha ze dne " &cNowDate& " byla provedena")
End sub