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

Ordner verschieben -> Eingabe aus Datei

Mitglied: kaiadelmann

kaiadelmann (Level 1) - Jetzt verbinden

13.11.2006, aktualisiert 14:47 Uhr, 3517 Aufrufe, 1 Kommentar

Hallo!

Folgendes Problem: Ich habe eine Exceldatei, in der ca. 6.000 Ordnernamen aufgelistet sind.
In diesen Ordnern sind Unterverzeichnise und alte Dateien, die in einen Archivordner verschoben werden sollen (natürlich soll die Ordnerstruktur beibehalten werden...).

Da ich nun keinerlei Lust verspüre, nach über 6.000 Ordnern einzeln zu suchen, hier die Frage ob jemand ein Tool / einen Weg kennt, die Ordnerliste aus Excel (oder als .txt oder .csv) automatisch abarbeiten zu lassen.

Also ungefähr folgendermaßen:

Gehe in Ordner X, durchsuche alle Unterordner Y, ob dort ein Ordner mit Namen Z vorhanden ist.
Wenn ja -> verschiebe Ordner Y\Z mit allen Dateien darin in Ordner \Archiv\Y\Z.
Wenn nein -> nächster Ordnername auf der Liste und von vorne...
Mitglied: MCSE-Cheffe
13.11.2006 um 14:47 Uhr
Hallo,

nachdem deine Angaben nicht so Detailgenau sind , z.B. wo der Pfad(c:\) ist ob es immer einen Ordner y gibt, habe ich mal ein kleines VBScript geschrieben das natürlich an deine gegebenheiten angepasst werden soll (muss).

Hier ein Entwurf der nicht als Endlösung zu sehen ist, aber ein Anfang für Dich:

' Const
Const ForReading = 1
' EndConst

Set fso = CreateObject ("Scripting.FileSystemObject")

Quell_CSV_Datei = "c:\c\test.txt"
OrdnerLaufwerk = "" 'z.B. c:\
SuchOrdnerName = "" 'z.B. rechnungen
ZielOrdner = "" 'z.B. c:\archiv

Set Quell_CSV_Datei_oeffnen = fso.OpenTextFile (Quell_CSV_Datei,ForReading)

Do While Not Quell_CSV_Datei_oeffnen.atEndOfStream
Input = Input & Quell_CSV_Datei_oeffnen.Readline
Loop

Quell_CSV_Datei_oeffnen.Close
Details = Split(Input, ";")

For i = 0 To UBound(Details)

Pfad_OrdnerLaufwerk = OrdnerLaufwerk & Details(i)

If fso.FolderExists(Pfad_OrdnerLaufwerk) Then

Set ordner_1 = fso.GetFolder(Pfad_OrdnerLaufwerk)
anz_ordner_1 = ordner_1.SubFolders

For Each UnterOrdner In anz_ordner_1

Name_UnterOrdner = UnterOrdner.Name
Pfad_UnterOrdner = UnterOrdner.Path

If fso.FolderExists(Pfad_UnterOrdner & "\" & SuchOrdnerName) Then

fso.MoveFolder Pfad_UnterOrdner & "\" & SuchOrdnerName, ZielOrdner

End If

Next

End If

Next

Du kannst natürlich weitere Fragen stellen wenn Du icht klar kommst.

Gruß MCSE_Cheffe
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk

Dateien und Ordner verschieben mit Rückfrage

Frage von steftsWindows Netzwerk1 Kommentar

Hallo, in einer Windows Server-Client Umgebung habe ich folgende Anforderung: Dateien und Ordner die auf einem Netzwerk Fileshare liegen, ...

Batch & Shell

Verschieben von Dateien in zugehörige Ordner

Frage von vmihaylovBatch & Shell5 Kommentare

Hallo allerseits! Ich habe in einem Ordner sehr viele Dateien mit Artikelnummern als Namen (z.B. 123456.tiff, 123456.jpg, 215456.jpg,215456,tiff,), die ...

Batch & Shell

Ordner durchsuchen - wenn "bestimmter Text" in einer Datei enthalten, diese Datei in einen anderen Ordner kopieren oder verschieben

gelöst Frage von ConcurveBatch & Shell14 Kommentare

Hallo zusammen, ich habe ein Problem bei der Erstellung einer *.bat, welche innerhalb eines zu definierenden Ordners alle Dateien ...

Batch & Shell

Dateien anhand des Namens in neue Ordner verschieben

gelöst Frage von CookiemonsterBatch & Shell17 Kommentare

Hallo Leute, kann mir jemand von Euch mit diesem Problem helfen: Ich habe einen Ordner mit Dateien der folgenden ...

Neue Wissensbeiträge
E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 4 StundenE-Mail3 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 5 StundenHyper-V

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 8 StundenSicherheits-Tools

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Server-Hardware

Lösung für Ersatz eines defekter Raid-Controllers

Anleitung von wellknown vor 22 StundenServer-Hardware3 Kommentare

Hallo, da ich nichts gefunden habe und selbst eine Lösung brauchte, hier eine kleine Anleitung für alle die vor ...

Heiß diskutierte Inhalte
Windows Server
Mit der alten Domäneprofil anmelden ohne Server
gelöst Frage von SyosseWindows Server37 Kommentare

Hallo Jungs Folgendes Szenario: Ich habe bei einem sehr kleinen Unternehmen (2Personen) den Server migriert, soweit hat alles geklappt. ...

Sicherheits-Tools
Virenprogramm lässt Programme nicht starten
Frage von SurferGirlSicherheits-Tools23 Kommentare

Hallo, ich bin neu hier, ich hoffe ich habe die richtige Rubrik gewählt. Falls nicht, tut es mir leid. ...

Windows Server
Kann DNS-Einträge nicht finden
gelöst Frage von BPeterWindows Server19 Kommentare

Hallo, wenn ich folgenden Befehl absetze, bekomme ich eine Liste zurück mit allen Einträgen der DNS-Zone. Wenn ich aber ...

Windows Server
SQL Server Instanz (Eplan) auf WIN 2008 RC2 Server frisst RAM ohne Limit
Frage von derinderinderinWindows Server17 Kommentare

Hallo Zusammen, Wir haben hier einen Windows 2008 RC2 Server. Darauf läuft ein SQL Server Express 2014 Version 12.0.4232.0. ...