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, 10370 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
VB for Applications

Per vbscript element aus xml datei löschen

gelöst Frage von aletriVB for Applications4 Kommentare

guten abend an alle nun folgt der gegenzug nämlich <Path>C:\Program Files\Lockheed Martin\Prepar3D v4\ATiLibs\scenery</Path> entfernen! Script löscht die Zeile nicht ...

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 ...

VB for Applications

Per vbscript neues element an xml datei einfügen

gelöst Frage von aletriVB for Applications1 Kommentar

guten abend an alle das xml file, dass dieser script bearbeitet sieht leer so aus: <?xml version="1.0"?> -<DynPlacement.Document> -<Config> ...

Microsoft Office

Outlook VBScript

gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Neue Wissensbeiträge
Humor (lol)
Preisvertipper
Information von Dilbert-MD vor 7 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 ...