Daten sichern. Aber wie am besten?

[Flame]

Moin. Ich bins mal wieder. Und zwar möchte ich von paar Rechnern, die Daten sichern.
d.h. Favoriten, eigene Dateien etc.
Nun haben aber zusätzlich alle nicht die selben Arbeitsordner, denn jeder hat im laufe der Zeit ja auch eigene angelegt.
Wie könnte ich nun am besten alle Dateien automatisch sichern?

Dachte da an ein Script o.ä., welches:
- die Festplatte durchsucht und nach allen vorgegebenen Dateiendungen sucht.
- die gefundenen Dateien in einen vorgegebenen Ordner sichert
- zusätzlich vielleicht ne Info, wo er diese gefunden hat.

Dann ein anderes Script, welches auf dem neuen Rechner sozusagen alles zurück kopiert. Und wenn es den Ordner noch nicht gibt, diesen dann erstellt und das File dann da rein kopiert.

Gibt es da schon Erfahrungswerte, Scipte o.ä. von Euch?
P.S. manche alte Rechner sind u.a. WinNT Maschinen.
Die neuen sind alle WinXP Prof.

 

[thekorn]

vielleicht mit Excel

mein Vorschlag: Excel nutzen. Excel (bzw. VBA) besitzt einige nützliche Feautures, hier mal ein kleiner anfang

Public Sub finden()
Dim Fs As Object
Dim i As Integer

Set Fs = Application.FileSearch
With Fs
    .NewSearch
    .LookIn = "d:\"
    .SearchSubFolders = False
    .Filename = "*.doc"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "Es wurden " & .FoundFiles.Count & " Datei(en) gefunden."
        For i = 1 To .FoundFiles.Count
            ActiveSheet.Cells(i, 1).Value = .FoundFiles(i)
            'kopieren .FoundFiles(i)
        Next i
        kopieren .FoundFiles(i - 1)
    Else
        MsgBox "Es wurden keine Dateien gefunden"
    End If
End With

Set Fs = Nothing
End Sub

Public Sub kopieren(datei As String)
On Error Resume Next

Dim Laenge As Integer
Dim Dateiname As String
Dim Zielordner As String

Laenge = Len(datei) - InStrRev(datei, "\")
Dateiname = Right(datei, Laenge)

Zielordner = "c:\"
MkDir (Zielordner)
FileCopy datei, Zielordner & Dateiname
End Sub

vielleicht hilft es weiter

gruß
thekorn

 

[DrSoong]

Nachteil: Du musst Excel zuerst starten/es haben. Du könntest dazu VBScript benutzen (die .vbs-Dateien), da bist du von den Anwendungsprogrammen unabhängig. Schau dazu mal in die Programmiersprachen-Sektion, da wird dir geholfen.


Der Doc!