Hallo. Im Zuge einer etwas längeren Arbeit ist mir ganz bange um meine Daten geworden. Festplatten gehen ja nun mal manchmal einfach kaputt! jetzt meine Frage: ist es möglich, Word zu sagen, dass es automatisch auf zwei verschiedene HD speichern soll (oder meinetwegen auch auf HD und Zip)
Danke, Jens
Hallo. Im Zuge einer etwas längeren
Arbeit ist mir ganz bange um meine Daten
geworden. Festplatten gehen ja nun mal
manchmal einfach kaputt! jetzt meine
Frage: ist es möglich, Word zu sagen,
dass es automatisch auf zwei verschiedene
HD speichern soll (oder meinetwegen auch
auf HD und Zip)
Du könntest dir natürlich ein kleines Makro schreiben. Ich empfehle für solche Fälle Second Copy : http://www.centered.com
Reinhard
Hallo Jens
Sie könnten eine einache Batch-Datei schreiben, welche periodisch die Dateien mit dem XCopy-Command auf ein anderes Laufwerk kopiert.
Als Scheduler für die Batch-Datei würde sich z.B. unter Windows 98 das Tool Arbeitsplatz - Geplante Vorgänge eignen.
Nach meiner Erfahrung sind Festplatten doch recht robust. Mehr Probleme in der Praxis habe ich mit Dateien, welche auf irgendeiner Weise furch Software zerschossen werden.
Da es oft eine Weile geht, bis man solche Probleme erkennt, ist es für mich unerlässlich, verschiedene Generationen von Sicherungdateien zu erstellen.
Gruss
S. Widmer
Hallo Jens,
hatte das selbe Problem. Daraufhin habe ich folgendes Makro für Word97 geschrieben:
>
Sub Versionspeichern()
datum_V = Date
zeit_V = Time
sekunde_V = Right(„0“ + Mid(Str(Second(zeit_V)), 2), 2)
minute_V = Right(„0“ + Mid(Str(Minute(zeit_V)), 2), 2)
stunde_V = Right(„0“ + Mid(Str(Hour(zeit_V)), 2), 2)
zeitS_V = stunde_V + „-“ + minute_V + „-“ + sekunde_V
tag_V = Right(„0“ + Mid(Str(Day(datum_V)), 2), 2)
monat_V = Right(„0“ + Mid(Str(Month(datum_V)), 2), 2)
jahr_V = Right(„0“ + Mid(Str(Year(datum_V)), 2), 4)
datumS_V = jahr_V + „-“ + monat_V + „-“ + tag_V
pfad = ActiveDocument.Path
DN_alt = ActiveDocument.Name
DN_alt_komplett = pfad + „“ + DN_alt
Pfad_neu = pfad + „\Versionen“
DN_neu = Pfad_neu + Left(DN_alt, InStr(1, DN_alt, „.doc“, vbBinaryCompare) - 1) _
ActiveDocument.SaveAs FileName:=DN_neu, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.SaveAs FileName:=DN_alt_komplett, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub