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
GELÖST

VBScript um alle Dateien aus verschiedenen Ordner in die andere Ordner zu verschieben

Frage Entwicklung VB for Applications

Mitglied: highpriest

highpriest (Level 1) - Jetzt verbinden

17.05.2012, aktualisiert 19.05.2012, 3342 Aufrufe, 7 Kommentare

Hallo VBS-Experten,

da ich wenig Ahnung von VBScripten habe, benötige ich Eure Hilfe.

Ich brauche einen VBScript, das folgende Aufgabe erfüllen soll:

In den Quellordnern "E:\test\test\a", "E:\test\test\b", "E:\test\test\c" liegen Dateien,
die (alle) in die Zielordner "E:\test\test1\1", "E:\test\test1\2", "E:\test\test1\3"
entsprechend verschoben werden sollen (also a zu 1, b zu 2, c zu 3).
Die Zielordner sind zu diesen Zeitpunkt sind immer leer, also die Abfrage ist nicht wirklich nötig.

Ich bedanke mich im Voraus!

highpriest
Mitglied: 60730
17.05.2012 um 01:22 Uhr
Moin,

Ich hoffedass ihr mir einen passenden Script schreiben könnt (die Pfade werde ich versuchen selber anzupassen).
  • ymmd schönen Vatertag

Gruß
Bitte warten ..
Mitglied: TsukiSan
17.05.2012 um 14:31 Uhr
/OT
Hi Timo,

ist dein Bier schon kalt? Wenn JA, dann schick doch mal von DEINEM Kühlschrank in MEINEN
und das ganze ohne Nachfrage Also immer schön auffüllen, egal zu welcher Zeit

Schönen Vatertag!

Tsuki
/<OT
Bitte warten ..
Mitglied: highpriest
17.05.2012 um 17:45 Uhr
@TimoBeil, @TsukiSan

Wie hilfreich!
Auch Euch wünsche ich einen schönen Vatertag!

@netzwerkknecht

Leider komme ich nicht weiter.
Trotzdem Danke für die Antwort.
Bitte warten ..
Mitglied: netzwerkknecht
17.05.2012 um 18:45 Uhr
Zitat von highpriest:
Leider komme ich nicht weiter.

Vielleicht hilft Dir eine deutschsprachige Darlegung zu Robocopy eher weiter: http://www.wintotal.de/artikel/artikel-2007/91.html

netzwerkknecht auf Windows Intune: http://bit.ly/wide12hp
Bitte warten ..
Mitglied: highpriest
19.05.2012, aktualisiert um 01:24 Uhr
Ich habe jetzt was gefunden, was auch die Dateien verschiebt:

Option Explicit
Dim fso, oFile, oFiles, oFolder
Dim sQuelle, sZiel

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("E:\test\test\a\")
Set oFiles = oFolder.Files

sZiel = "E:\test\test1\1\"

For Each oFile In oFiles
sQuelle = fso.GetAbsolutePathName(oFile)
fso.MoveFile sQuelle, sZiel
Next
Wie kann ich Script jetz so anpassen, damit es mit drei verschiedenen Ordner funktioniert?
Bitte warten ..
Mitglied: highpriest
23.05.2012 um 21:15 Uhr
Hat sich erledigt.
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Router & Routing
über Vmware auf eine FritzBox mit IPv6 per VPN (17)

Frage von Zockervogel zum Thema Router & Routing ...

Basic
Programmierung von Windows Programmen (8)

Frage von Ghost108 zum Thema Basic ...