fanzo Professional Electronics Expert Team

...kopiju particije ili samo nekih foldera sa hdd na neku drugu lokaciju, kao bekap , ali ne kompresovan nego samo copy/paste.
Scheduled Tasks bi mogao da ga pokreće , ali softver koji tražim treba da ima opciju da nakon pokretanja može sam da odradi posao koji je prethodno unapred definisan.

operativni sistem xp.

automatik copy/paste mi treba da mogu lako da dopunim ili povratim određene fascikle/fajlove ...znači nepotreban mi je kompresovani bekap koji uvek zahteva proceduru za vraćanje. Nije mi bitno da može sam da vrati fajlove.

Ako sam razumeo dobro tebi treba ednostavno vremeno izvrsenje odredeni koamndi kao copy odredeni fajlovi na drugu lokaciju,?
Ako je to sve so ti je potrebno onda je dovoljno da u notepad ispisis dos komande za tu akciju(primer copy c:/*.* d:/*.* ) , onda fajl imenujes bilo_kako.bat i postavis ga u shedulet tasks...(dopuna) ili u start up ...

da , to mi treba. Probaću ovo , ali mislim da će mi uz ovo trebati i još nešto...a to je :
fascikla koja bi se svakodnevno kopirala u određeno vreme u jednu drugu bi morala da dobija drugačije ime ,a i posle recimo 10-tak dana bi trebala sama da se obriše prva ..jer ostaje mi još 9 kopija...dan+1 ....ili opcija da stariju (jučerašnju) fasciklu zameni sa novijom (današnjom).
Probaću...

Pa nisam bas siguram ali mislim da i to moze da se odradi u bat file, naime; kad kopiras fajl zadas mu ime koje je datum, onda proveris dali iams starije od taj datum i ako imas obrisi to... ali za ovo nisam siguran kako bi kod trebalo da izgleda.

probaj sa northon ghost-om

Ako koristiš Excel, ovo ti je rešenje. Prilikom zatvaranja dokumenta, izvršiće se procedura pravljenja kopije sa datumom.
Prvo uradiš sledeće: U Excelovom dokumentu > Tools > Macro > Security > Security Level > Low
Zatim otvoriš VB Editor
Tools > Macro > Visual Basic Editor
i u prozoru Project:
VBAProject > Microsoft Excel Objects > ThisWorkbook ; (dvoklikom otvoriti prozor, gde se upiše sledeći kod):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook.SaveCopyAs Filename:= _
"Adresa \" & Date & " naziv dokumenta .xls"
End Sub

'gde umesto: "Adresa" napišeš kompletnu adresu mesta gde želiš da bude smešten dokument (kopija),
'a umesto: "naziv dokumenta" napišeš naziv, koji želiš da bude. Ispred naziva će automatski biti ubačen datum, tako da ćeš moći lako da ih pretražuješ

Da bi excel mogao da "objasni" Windowsu šta je Date, treba mu "prevodilac". Dakle, Treba raspakovati RAR arhivu: "msccomm" i fajl
"MSCCOMM32.OCX" ubaciti u ...WINDOWS\system32. Zatim restartovati racunar.

Proko , jel ova varijanta važi samo za Excel ?
Može li da radi na '98 ?
Može li da kopira dokument kada je taj isti dokument otvoren ?

- Važi samo za Excel, jer se u njega stavlja kao macro.
- neznam za 98, probaću, ali ja imam Office XP...Uostalom, probaj ti kod tebe.
- može da kopira i kada je dokument otvoren, ali treba dodati komandu za to, jer ovako radi samo kada zatvaraš dokument.

aha..znači radi prilikom zatvaranja dokumenta?...biće i to dovoljno...probaću pa javljam..nisam stigao ni ono gore još da probam..

I ?

Ako ne želiš da ručno brišeš nagomilane kopije, možeš umesto predhodnog upisati sledeći kod:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If ActiveWorkbook.Name = "naziv dokumenta .xls" Then
ActiveWorkbook.SaveCopyAs Filename:= _
"Adresa\" & Weekday(Date, vbMonday) & ".naziv dokumenta .xls"
End If
End Sub

'gde umesto: "Adresa" napišeš kompletnu adresu mesta gde želiš da bude smešten dokument (kopija),
'a umesto: "naziv dokumenta" napišeš naziv, koji želiš da bude.
Ispred svake kopije se automatski upisuje redni broj dana u nedelji, tako da posle 7 dana se kopija upisuje umesto one od pre 7 dana. Tako možeš imati najviše 7 kopija. Posle svakog zatvaranja dokumenta se osvežava kopija sa novim podacima, ukoliko je isti dan u pitanju.
Ako neki dan ne otvaraš dokument, ostaće ti pod tim rednim brojem kopija od predhodne nedelje. Ali, pošto u folderu možeš da vidiš datum kreiranja dokumenta, to ne bi trebalo da bude problem.
Kada zatvaraš kopiju, ona ne pravi svoju kopiju.

Proko ovo će biti fino samo da stignem da isprobam , upravi mi sve tako odgovara i baš za excel mi i treba..javljam čim isprobam..neće biti skoro...

Ima još bolje...ako nešto zabrljaš, i ne želiš da sačuvaš promene u dokumentu, neće se napraviti ni kopija. Znači, kopija se pravi samo kada klikneš na SAVE, ili prilikom zatvaranja potvrdiš da želiš da se sačuvaju promene. Sve ostalo što sam već napisao važi, samo kod je sledeći (umesto onog gore):

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Name = "naziv dokumenta.xls" Then
ActiveWorkbook.SaveCopyAs Filename:= _
"Adresa\" & Weekday(Date, vbMonday) & ".naziv dokumenta.xls"
End If
End Sub

čekaj..jel svaki put pravi kopiju dokumenta ako pritisnem na SAVE ?
To mi neće biti dobro jer u jednom danu pritisnem save bar 30tak puta...ne čekam kraj radnog vremena da snimim dokument , jel može doći do nestanka struje i sl..

pa to ti nije problem, koliko vidim (& Weekday(Date, vbMonday) & ), dok je isti dan sve kopije bi se prezapisavale jedna vrz druga na kraj imas samo jedna koja ostaje.

Da, svaki put se kopira preko postojeće kopije urađene tog dana. Već sam napisao da možeš imati najviše 7 kopija. Ako primetiš da si nešto zabrljao, nemoj da pritiskaš SAVE. A ako to ipak uradiš, imaš ispravnu kopiju od predhodnog dana, jer će ti ona najnovija biti sa učinjenom greškom.

ma greška mi neće biti problem jer je ispravim čim vidim...bitno mi je ako nešto krene po zlu da imam kopiju...a nastale greške prilikom pisanja lako ispravim.
Može ipak i ovako..neka snima stalno..ionako nije previše uposlen taj pc.

Samo se ti premišljaj, na kraju ću doći lično da ti to instaliram...šalim se, ne radim to samo zbog tebe, i meni je trebalo...
Ova, najnovija verzija ne zahteva da upisuješ ništa, samo prekopiraš kod u VB Editor > VBA project > This Workbook i to je sve.
Zatim napraviš folder na mestu gde ti stoji tvoj Excelov dokument i dodeliš mu ime: "Back"
Macro će sam da učita i adresu, i naziv tvog dokumenta i praviće kopije po već opisanim pravilima.
Ako nema pomenutog foldera sa imenom Back, neće se dogoditi ništa.
Može li jednostavnije?

Kod:

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim adresa As String, naziv As String, broj As Byte
On Error Resume Next
adresa = ActiveWorkbook.Path
naziv = ActiveWorkbook.Name
broj = Val(naziv)
If broj = 0 Then
ActiveWorkbook.SaveCopyAs Filename:= _
adresa & "\Back\" & Weekday(Date, vbMonday) & "." & naziv
End If
End Sub

Evo jednostavnog rjesenja, ima shedule svoj i odradi sve kako mu zadas, i za tacno koju aplikaciju zelis, koji dokument, ma za mrvu, mrvicu radi backup i na dan kada mu ti kazes

Acronis True Image Home 11.0

kome bude trebo neka se javi na pp pozz

OK, može i tako, ja inače sa Acronis-om radim backup operativnog sistema.
Ovde se radi o 12 redova koda koje treba prekopirati na određeno mesto, i dobijaš kopiju dokumenta za svaki dan u nedelji i možeš ih eventualno pregledati...imam urađen i dodatak, koji prilikom otvaranja neke od kopija postavi pitanje "hoćete li da se ovaj dokument prekopira u tekući dokument?"

A čemu sve to, kada onaj koji je postavio pitanje ne kaže ništa, makar i : "probao sam i ništa ne valja..."