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.

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

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

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

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!