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 mit VBScript Dateien verschieben

Mitglied: Xethria

Xethria (Level 1) - Jetzt verbinden

23.10.2007, aktualisiert 24.10.2007, 9968 Aufrufe, 3 Kommentare

Hallo.

Vorab zu meiner Person. Ich bin vor fast drei Wochen in eine Ausbildung gerutscht. Die unter anderem VBScript in der Berufsschule beinhaltet. Für die Firma meinen Job brauch ich es nicht aber für die Schule. Vor der Ausbilung hatte ich keine Ahnung und jetzt auch nicht viel mehr. Soviel dazu, dass ich wohl nach eurer Hilfe mehr Fragen habe als vorher.

Der Unterricht diesbezüglich (VBScript) läuft so ab: der Lehrer gibt uns eine Aufgabe, wie die, mit der ich mein Problem habe und dann sitzen wir (Schüler) da. Ohne Einleitung oder Anleitung.

Auf meine Frage hin, woher ich mein Wissen nehmen soll, war die Antwort: aus dem Buch, und/oder suche solange bis du eine ähnliche Lösung für dein Problem findest und bau sie um.

Das genannte Buch heisst "Windows Scripting lernen". Steht vieles nützliches über die Grundbausteine drin, aber nun mangelt es an der tatsächlichen Umsätzung.

Natürlich habe ich ein paar Kollegen in meiner Firma die mir helfen können, aber sie haben nicht immer Zeit für mich und ich lerne es ja wirklich von Grund auf. Ich dachte mir vielleicht, dass ihr mir helfen könnt, und es vielleicht immer einen gibt, der Zeit und Lust hat auf meine vielen kommenden Fragen zu antworten.

Nun aber zu meinem Problem:
Die Aufgabe war es zwei Programme zu schreiben. Mit dem einen sollten wir eine Ordnerhierachie erstellen.

|-A
| -A
| -...
|-B
| -A
| -B
| -...
| -Z
|-C
|-D
|-...
|-Z

also 26 Ordner von A bis Z und in jedem Ordner wieder 26 Ordner von A bis Z.

Diese Aufgabe konnte ich nach langem Hin und Her und mehreren Minuten und Stunden der Verzweiflung mit etwas Hilfe löse.
Aber das zweite Programm schaff ich nicht. Wobei man sagte, es sei einfacher als das Erste.

Die zweite Aufgabe ist ein Programm zu schreiben, dass aus einem Ordner, wo viiieeellee .txt-Dateien drin sind, diese je nach Namen in die vorher erstellte Ordnerhierachie zu ordnen. Beispiel:

Zsjf.txt in Ordner Z
Ksopt.txt in Ordner K
Azifdc.txt in Ordner A
usw.

Ich bitte euch so dringend um Hilfe. Ich erwarte bald wieder eine Aufgabe von der Schule und habe sowenig Zeit und viel zu wenig Wissen das alleine zu schaffen.

Lieben Gruß.
Mitglied: SarekHL
23.10.2007 um 21:45 Uhr
Ich bitte euch so dringend um Hilfe. Ich erwarte bald wieder eine Aufgabe von der Schule und habe sowenig Zeit und viel zu wenig Wissen das alleine zu schaffen.

Naja, ich denke nicht, daß die Schule Euch überfordert, und ein wenig Zeit sollte man in seine Ausbildung schon investieren. Ich weiß ja nicht, was Du nebenbei noch machst, wenn du sooo wenig Zeit hast, aber das mußt Du vielleicht mal reduzieren.

Nun aber zu Deinem Anliegen

Die zweite Aufgabe ist ein Programm zu schreiben, dass aus einem Ordner, wo viiieeellee .txt-Dateien drin sind, diese je nach Namen in die vorher erstellte Ordnerhierachie zu ordnen. Beispiel:

Zsjf.txt in Ordner Z
Ksopt.txt in Ordner K
Azifdc.txt in Ordner A
usw.

Ich werde Dir jetzt keine fertige Lösung präsentieren, denn man lernt ja am besten, indem man sich die Lösung selber erarbeitet. Aber vielleicht ein paar Ansätze:


http://www.vbarchiv.net/archiv/tipp_details.php?pid=505 zeigt Dir, wie Du eine (in diesem Fall nach Datum und Uhrzeit) sortiere Dateiliste erstellen kannst. Das ist zwar eine Lösung für VB und weniger für VBscript, aber vielleicht kannst Du sie Dir ja anpassen.

Den Befehl LEFT kennst Du ja vermutlich [Left("KSOPT.txt",1) ergibt K], damit kannst Du dann aus dem Dateinamen ermitteln, in welchen Ordner die Datei muß.

http://www.vbarchiv.net/vbapi/MoveFile.php erklärt Dir die MoveFile-Funktion zum Verschieben von Dateien.


Viel Erfolg ...
Bitte warten ..
Mitglied: bastla
23.10.2007 um 22:26 Uhr
Hallo Xethria und willkommen im Forum!

Eine fertige Lösung möchte auch ich Dir nicht anbieten, aber ein Script für eine ähnliche Aufgabenstellung (Kopiere alle Dateien des Ordners "D:\Dateien" nach ihrem Dateityp in den jeweils entsprechenden Ordner unterhalb von "D:\Archiv", also etwa "Zsjf.txt" in den Ordner "D:\Archiv\txt" oder "Ksopt.vbs" in den Ordner "D:\Archiv\vbs") würde etwa so aussehen:
01.
Const Quelle = "D:\Dateien" 
02.
Const Ziel = "D:\Archiv" 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
Set Ordner = fso.GetFolder(Quelle) 
05.
For Each Datei In Ordner.Files 
06.
	Datei.Copy Ziel & "\" & Right(Datei.Name, 3) & "\" & Datei.Name 
07.
Next
Da Du schon angekündigt hast, auch in Zukunft hier Hilfe suchen zu wollen, vielleicht eines vorweg: Zumindest die grundsätzliche Überlegung, welche einzelnen Arbeitsschritte nötig sind, solltest Du schon selbst anstellen! Versuche, diese Schritte so genau wie möglich zu beschreiben, dann musst Du "nur" noch die richtigen Werkzeuge finden, zB in Deinem Buch oder in der Hilfe-Datei "script56.chm" (falls Du diese noch nicht zur Verfügung haben solltest, kannst Du eine deutschsprachigen Version zB hier bekommen).

Wenn Du dann Deinen Script-Entwurf hier im Forum darstellst, wirst Du sicherlich Unterstützung in Form von Ergänzungen oder Korrekturen erhalten.

Grüße
bastla
Bitte warten ..
Mitglied: Xethria
24.10.2007 um 07:43 Uhr
Ich bedanke mich schonmal vielmals für eure Hilfe. In den zweieinhalb Wochen, die ich nun die Ausbilung machen, versuche ich den Stoff der Schule von fast 3 Monaten nachzuholen. Sie läuft schon seit August. Ich bin nur einen Tag in der Woche in der Berrufsschule und sonst von 8Uhr bis mindestens 17Uhr im Betreib. Meist länger, dass kann sich jeder denken.

Ich bin eifrig dabei VBScript zu verstehen. Aber ich glaub ihr könnt mich ein bissel verstehen, wenn ich eben noch soviel anderes im Nacken hab und über jede Hilfe froh bin. Ich hatte es ja immerhin fast alleine geschafft die Ordnerhierachie zu erstellen.

Ich geh nun zur Arbeit und heute abend mach ich mich ran es zu basteln.

Vielen Dank!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Batch Datei zum verschieben von Dateien aus Unterordnern ?

gelöst Frage von Ghostrider1911Batch & Shell10 Kommentare

Hallo, ich bräuchte eine Batch Datei die Dateien aus Unterordnern verschiebt. Also ich habe folgende Verzeichniss Struktur: Z:\Dateien\Ordner1\M1\ Z:\Dateien\Ordnärx\M1\ ...

VB for Applications

VBScript pfad der zu bearbeitenden datei wird nicht erkannt?

gelöst Frage von aletriVB for Applications10 Kommentare

Hallo Leute Im folgenden Script der soweit funktioniert, wird der Pfad der zu bearbeitenden Datei nicht erkannt : nämlich ...

VB for Applications

VBScript anwenden um Verzeichniss Dateien editieren

gelöst Frage von matteopVB for Applications4 Kommentare

In einem Verzeichnis wo mehrere htm, xml Dateien vorhanden sind mit folgenden Namen: slidexxx.* ; masterxxx.*, usw bräuchte ich ...

VB for Applications

Vbscript zum Anfügen von Text in scenery.cfg Datei

gelöst Frage von aletriVB for Applications27 Kommentare

Guten Tag an alle Der folgende Script fügt der Scenery.cfg Datei des Flugsimulators einen Szenerie Eintrag hinzu. Das hatte ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 11 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 14 StundenAdministrator.de Feedback10 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...