Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Microsoft Windows Tools

Mitglied: kaiadelmann

kaiadelmann (Level 1) - Jetzt verbinden

13.11.2006, aktualisiert 14:47 Uhr, 3456 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
Ordner erstellen ll Datei hinein kopieren (1)

Frage von heyalice zum Thema Batch & Shell ...

Vmware
gelöst Manche VMs lassen sich nicht in Ordner verschieben (3)

Frage von Zippo97 zum Thema Vmware ...

Batch & Shell
gelöst Dateien anhand des Namens in neue Ordner verschieben (17)

Frage von Cookiemonster zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...