Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Per Script Dateien aus verschiedenen Verzeichnissen zusammensuchen

Mitglied: chb1982

chb1982 (Level 2) - Jetzt verbinden

04.02.2010 um 09:11 Uhr, 7652 Aufrufe, 7 Kommentare

Moin,

der Titel sagt schon einiges aus. Ich möchte aus allen Unterverzeichnissen unter z.B. d:\daten\ alle Dateien in ein Verzeichnis kopieren wo diese dann weiter verarbeitet werden.

Die Herausforderung bei der Sache ist, dass die Daten im Zielverzeichnis nach der eigentlichen Verarbeitung gelöscht werden, aber trotzdem nicht wieder neu aus dem Quellverzeichnis geholt werden dürfen.

Hat jemand eine Idee, wie man das realisieren kann?


Das einzige, was mir einfällt wäre ein kleiens Tool, z.B. in VB, das die schon einmal kopierten Daten in einer Textdatei dokumentiert und beim nächsten Durchlauf damit abgleicht.
Ich würde es aber lieber mit einer Batch lösen zumal der Abgleich mit einer Textdatei mit der Zeit extrem langsam werden könnte.
Mitglied: H41mSh1C0R
04.02.2010 um 09:25 Uhr
Um wieviele Dateien geht es denn?

Les doch die vom Zielordner Verzeichnisstruktur ein und leg dir die Struktur in einer Textdatei ab.
Danach liest du die Struktur vom Quellordner und kopierst nur die die beim Diff übrigbleiben.
Nach dem Kopieren aktualisierst du die Strukturdatei des Zielordners wieder und fährst analog mit dem nächsten Quellordner fort.
Bitte warten ..
Mitglied: chb1982
04.02.2010 um 09:32 Uhr
Hi,

das sind nicht viele Daten.Im Moment etwa 50 Verzeichnisse mit jeweils max. 20 Dateien.

Im Zielordner sollen die Dateien aus den Unterordnern aber ohne Unterordner abgelegt werden. Also alle in ein Verzeichnis. Die Dateinamen sind eindeutig, das sollte keine Probleme geben.
Bitte warten ..
Mitglied: 76109
04.02.2010 um 11:56 Uhr
Hallo morpheus31337!

Eventuell, könnte man bei den bereits kopierten Dateien einfach nur das Archiv-Attribut löschen?

Gruß Dieter
Bitte warten ..
Mitglied: chb1982
04.02.2010 um 12:53 Uhr
Hi,

das bringt dann aber leider die Datensicherung durcheinander. Ausserdem ist mir das zu unischer wenn aus irgendwelchen Gründen das Bit wieder gesetzt wird und er nochmal über alle Dateien fegt...
Bitte warten ..
Mitglied: 76109
04.02.2010 um 20:26 Uhr
Hallo morpheus31337!

Zitat von chb1982:
das bringt dann aber leider die Datensicherung durcheinander. Ausserdem ist mir das zu unischer wenn aus irgendwelchen
Gründen das Bit wieder gesetzt wird und er nochmal über alle Dateien fegt...
War nur eine Möglichkeit mit Fragezeichen
Ich würde es aber lieber mit einer Batch lösen zumal der Abgleich mit einer Textdatei mit der Zeit extrem langsam werden könnte.
Gerade dann sollte es mit VBS wesentlich schneller gehen

Also, ich habe mal ein kleines VB-SKript (*.vbs) zum testen gebastelt.

Das Skript erstellt/ersetzt in jedem Unterordner, in denen die zu kopierende Dateien stehen, eine Log-Datei mit der Erstellungszeit (Speicherzeit auf Datenträger) der zuletzt erstellten kopierten Datei im DateTime-Format "04.02.2010 19:14:23". D.h. beim starten des Skripts werden alle Dateien, die sich aktuell im Ordner befinden, mit der zuletzt gespeicherten Erstellungszeit in der Logfile verglichen und die Dateien, die nach dieser Zeit gespeichert wurden, in den Kopie-Ordner kopiert und die Erstellungszeit der zuletzt gespeicherten Datei wieder in die Log-Datei geschrieben. Sofern die Neu dazukommende Dateien nicht im Sekundentakt gespeichert werden, sollte das eigentlich funktionieren.

Das Skript muss sich im Haupt-Ordner "..\Test\Daten" befinden, wobei das Skript den Speicherort automatisch ermittelt und alle Unter-Ordner (1. Ebene) in diesem Ordner ausliest und die darin befindlichen Datei entsprechend kopiert. Der Kopie-Ordner darf sich logischerweise nicht in der Ordnerstruktur von "..\Test\Daten" befinden. Beispiel wäre hier "..\Test\Kopien\".

Die Konstanten entsprechend anpassen (Backslash LogFile am Anfang und CopyFolder am Ende beachten):
01.
Const FileTyp = "txt"					'Nur Textdateien 
02.
Const LogFile = "\LastFile.Log"				'Zeit der zuletzt erstellten Datei
03.
Const CopyFolder = "C:\Test\Kopien\"			'Pfad der Kopie-Dateien
04.

05.
Dim Fso, Path, SubFolder, File, Log, OldTime, NewTime
06.

07.
Set Fso = CreateObject("Scripting.FileSystemObject")
08.

09.
Path = Fso.GetParentFolderName(WScript.ScriptFullName)
10.
    
11.
OldTime = CDate("01.01.1980")
12.
NewTime = CDate("01.01.1980")
13.
    
14.
For Each SubFolder In Fso.GetFolder(Path).SubFolders
15.
    Log = SubFolder & LogFile
16.

17.
    If Fso.FileExists(Log) Then OldTime = CDate(Fso.OpenTextFile(Log).ReadLine)
18.

19.
    For Each File In SubFolder.Files
20.
        If LCase(Fso.GetExtensionName(File.Name)) = LCase(FileTyp) Then
21.
            If File.DateCreated > NewTime Then NewTime = File.DateCreated
22.
            If File.DateCreated > OldTime Then Fso.CopyFile File.Path, CopyFolder
23.
        End If
24.
    Next
25.
        
26.
    Set File = Fso.CreateTextFile(Log):  File.WriteLine NewTime:  File.Close
27.
Next
Gruß Dieter
Bitte warten ..
Mitglied: chb1982
05.02.2010 um 10:15 Uhr
Also ich habe das jetzt so gelöst.
Es gibt ein Textfile, das alle Dateinamen enthält, die bereits kopiert wurden. In meinem Fall sind die Dateinamen eindeutig daher ist das kein Problem.
Ansonsten müsste man den kompletten Pfad nehmen.

Nun gehe ich alle Unterzeichnisse durch und suche für jede gefundene Datei einmal die Textdatei durch ob diese schon einmal kopiert wurde.
Wider erwarten läuft das doch recht zügig.

Die fest codierten Pfade etc. entferne ich natürlich noch

01.
 Private Function copy_data() As Integer
02.
        My.Computer.FileSystem.CopyFile("c:\Destination\merkfile.ini", "c:\Destination\vergfile.ini", True)
03.
        Dim sw As New StreamWriter("c:\Destination\merkfile.ini", True)
04.

05.
        Dim filename As String
06.
        Dim actCopy As Boolean
07.

08.
        For Each sFile In My.Computer.FileSystem.GetFiles(sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
09.
            filename = My.Computer.FileSystem.GetName(sFile)
10.
            Dim sr As New StreamReader("c:\Destination\vergfile.ini")
11.
            Do While Not sr.EndOfStream
12.
                If sr.ReadLine = filename Then
13.
                    actCopy = False
14.
                    Exit Do
15.
                Else : actCopy = True
16.
                End If
17.
            Loop
18.

19.
            If actCopy = True Then
20.
                ListBox1.Items.Add(My.Computer.FileSystem.GetName(sFile))
21.
                My.Computer.FileSystem.CopyFile(sFile, dPath + My.Computer.FileSystem.GetName(sFile), True)
22.
                sw.WriteLine(My.Computer.FileSystem.GetName(sFile))
23.
            End If
24.
            sr.Close()
25.
        Next
26.
        sw.Close()
27.
        My.Computer.FileSystem.DeleteFile("c:\Destination\vergfile.ini")
28.
        MsgBox("Copy abgeschlossen", MsgBoxStyle.Information, AcceptButton)
29.
    End Function
Bitte warten ..
Mitglied: Sirius2002
16.05.2012 um 12:44 Uhr
Hallo,

der Beitrag ist zwar schon ziemlich alt jedoch hat er mir damals weitergeholfen.
Kann man das erste Skript auch so umbauen, dass es noch auf eine weitere Ebene an Unterodnern zugreift.

Sprich:
Hauptverzeichnis mit Skript
- Unterordner 1
-- mehrere Unterordner mit den *.txt Dateien
- Unterordner 2
-- mehrere Unterordner mit den *.txt Dateien

Vorher war es ja so:
Hauptverzeichnis mit Skript
- mehrere Unterordner mit den *.txt Dateien

Danke für die Hilfe,
Sirius2002
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Verzeichniss überwachen Datei kopieren und umbenennen

gelöst Frage von fischle63Batch & Shell6 Kommentare

Hallo, Habe folgendes Problem: In einem Verzeichniss sind Dateien mit dem Suffix ".nd" enthalten. Bsp. "00000010.nd" Ich brauche eine ...

Batch & Shell

Script zum XML Datei Umschreiben

Frage von cberndtBatch & Shell12 Kommentare

Guten Tag. Ich habe folgendes Problem. Ich habe eine XML Datei mit meinen Gutscheincodes sowie weiter Daten aus meiner ...

VB for Applications

Inhalt einer XML Datei Script ändern

gelöst Frage von chris27584VB for Applications4 Kommentare

Hallo zusammen, in folgendem Script <?xml version="1.0"?> -<SkClientConfig xmlns:xsi=" xmlns:xsd=" <LastServerIndex>1</LastServerIndex> <LastUser>11111</LastUser> <LastWorkplace>2358</LastWorkplace> -<SerializableFont> <FontValue>Microsoft Sans Serif; 8,25pt</FontValue> </SerializableFont> ...

Batch & Shell

Xcopy-script kopiert nur 1 datei?

gelöst Frage von f0rml0sBatch & Shell2 Kommentare

hey ich versuche gerade mit einem script dateien von einem unc pfad zum anderen zu kopierenleider kopiert das script ...

Neue Wissensbeiträge
Humor (lol)
Preisvertipper
Information von Dilbert-MD vor 11 StundenHumor (lol)6 Kommentare

Moin! weil heute Freitag ist, zeige ich Euch den Preisvertipper der Woche: vergesst den Acer Predator 21x, der ist ...

Windows Update
Sicherheitsupdate für SQL Server 2014 SP3
Information von sabines vor 1 TagWindows Update2 Kommentare

Für den SQL Server 2014 existiert ein Sicherheitsupdate. Laut KB Artikel wird es als CU3 angezeigt: Server 2014 SP3 ...

Backup

Veeam Agent für MS Windows - neue Version verfügbar (bedingt jedoch offenbar .NET Framework 4.6)

Information von VGem-e vor 2 TagenBackup1 Kommentar

Moin Kollegen, einer unserer Server zeigte grad an, dass für o.g. Software ein Update verfügbar ist. Ob ein evtl. ...

Python

Sie meinen es ja nur gut - Microsoft hilft python-Entwicklern auf unnachahmliche Weise

Information von DerWoWusste vor 4 TagenPython2 Kommentare

Stellt Euch vor, Ihr nutzt python unter Windows 10 und skriptet damit regelmäßig Dinge. Nach dem Update auf Windows ...

Heiß diskutierte Inhalte
Windows Update
WSUS - erforderlich Updates
Frage von emeriksWindows Update24 Kommentare

Hi, ein gängiges Verfahren, welche Updates man am WSUS-Server genehmigen soll und welche nicht, beruft sich darauf, dass man ...

Netzwerkgrundlagen
Neue Serverumgebung von 0 aufbauen
Frage von JacareNetzwerkgrundlagen20 Kommentare

Hallo zusammen, ich bin noch nicht lange hier und weiß nicht, ob meine Frage daher etwas ungewöhnlich ist. Ich ...

Off Topic
Installationskosten Verkabelung
Frage von Xaero1982Off Topic14 Kommentare

Moin Zusammen, ich bräuchte mal ein paar Meinungen, weil ich mir da gerade echt nicht ganz sicher bin. Ich ...

LAN, WAN, Wireless
Ich möchte mein Heimnetz umbauen. Welches ist die beste Variante?
Frage von s.burgerLAN, WAN, Wireless13 Kommentare

Schönen guten Tag liebe Admin-Community, ich wollte schon seit geraumer Zeit mein Heimnetzwerk etwas aufräumen und wollte euch um ...