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, 3302 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
VB for Applications
gelöst Mehrere CSV Dateien aus verschiedenen Ordner einlesen via VBA (12)

Frage von mtufangil zum Thema VB for Applications ...

Windows Netzwerk
Dateien und Ordner verschieben mit Rückfrage (1)

Frage von stefts zum Thema Windows Netzwerk ...

C und C++
Dateien in Ordner kopieren anhand vom Teil eines Dateinamen (22)

Frage von onlyforu8373 zum Thema C und C ...

Batch & Shell
Dateien im Ordner auslesen und umbennen (10)

Frage von jocheng zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...