Schleife in VBS wird ignoriert

Mitglied: OlliMuc

OlliMuc (Level 1) - Jetzt verbinden

06.04.2016, aktualisiert 14:48 Uhr, 1268 Aufrufe, 3 Kommentare

Hallo zusammen,

ich abe ein Problem mit folgendem VBS-Script - bin Neuling und wäre für Hilfe bei der Fehlersuche sehr dankbar.

Der 1. Kopy-Befehl soll nur ausgeführt werrden, wenn der Ordner im Quellpfad Daten enthält - ansonsten der ander Kopy-Befehl (der Ordner also leer ist). Ich bekomme keine Fehlermeldungen - die Schleife wird einfach nicht ausgefürt, in keiner von beiden Varianten. Hab schon seit 3 Tagen rumprobiert und sehe den Wald vor lauter Bäumen nimmer. :/


Hoffe sehr auf einen Helfer. :) face-smile

Grüße
Oliver

---
[Edit Biber] Codeformatierung und verschoben von "Visual Studio" nach "Batches from Hell" [/Edit]
Mitglied: Biber
06.04.2016, aktualisiert um 15:11 Uhr
Moin olliMuc,

dann fang ich mal an, die Profis sind noch zu Tisch...

Unter der Annahme, dass du als VBS-Neuling auch Tipps hören willst:

a) Es ist IMHO für deinen Zweck ziemlich sinnfrei, eine Function namens Move() zu definieren, wenn sie doch nirgends aufgerufen wird.
Kommentiere einfach die Zeilen Function ... und End Function aus. Oder lösch sie.
BTW: eine Function sollte möglichst nicht heissen wie Syntaxelemente oder reservierte Worte der Programmiersprache.
Move() ist nicht sinnvoll als Function-Name.
b) Variablen definieren ist fein. Es sollte aber erkennbar sein, ob eine Variable ein String oder ein Object ist. Die Variablennamen Quellpfad und Zielpfad in ihrer verwendeten Form führen fast zwangsläufig zu Programmierfehlern.
c) denn da Quelle bereits ein Object ist und eigentlich oFolderQuelle heissen sollte, müsste in Zeile 08 stehen:
If oFolderQuelle.Files.Count > 0 Then
d) in Zeile 5 ist vermutlich auch ein Tippfehler:
jezz': Set Ziel = FSO.GetFolder("C\Beispielergebnispfad\")
IMHO: Set oFolderZiel = FSO.GetFolder("C:\Beispielergebnispfad\")

Erstmal als Anschub-Programmierhilfe.

Grüße
Biber
Bitte warten ..
Mitglied: emeriks
LÖSUNG 06.04.2016 um 15:20 Uhr
Hi,
ich sehe da mehrere Fehler

Set Ziel = FSO.GetFolder("C\Beispielergebnispfad\")
":" fehlt

If FSO.GetFolder(Quelle).Files.Count > 0 Then
If Quelle.Files.Count > 0 Then

FSO.copyFile "G:\TEAM\BE\BE-B\Taegliches LG-Monitoring_Sued\System\Datenbasis\Temp\Umbenennen_Zwischenschritt\Tempspeicher\" & "\*.*", "G:\TEAM\BE\BE-B\Taegliches LG-Monitoring_Sued\System\Datenbasis\" & "\", true
"...eicher\" & "\*.*" ---> ergibt "....eicher\\*.*" --> Doppel "\"

FSO.copyFile "G:\TEAM\BE\BE-B\Taegliches LG-Monitoring_Sued\System\Datenbasis\Temp\Umbenennen_Zwischenschritt\" & "\*.*", "G:\TEAM\BE\BE-B\Taegliches LG-Monitoring_Sued\System\Datenbasis\" & "\", true
Wieder Doppel "\"


E.
Bitte warten ..
Mitglied: OlliMuc
06.04.2016, aktualisiert um 16:48 Uhr
Vielen Dank Biber und emeriks,

es läuft - eure Hinweise waren genau richtig und ich hab was gelernt. :) face-smile

Grüße
Olli

Ich schließe damit diese Frage als gelöst.
Bitte warten ..
Heiß diskutierte Inhalte
Windows 10
Wie komme ich von WIN10pro auf Windows 10 Enterprise
LegofrauVor 12 StundenFrageWindows 1058 Kommentare

Guten Tag, Wie komme ich auf legale weiße von Windows 10 professionell auf Windows 10 Enterprise? Ich habe viele widersprüchliche Antworten gefunden. Also muss ...

Router & Routing
FB und Archer 2 getrennte Netze mit einer WAN-Verbindung
neuhier14Vor 1 TagFrageRouter & Routing27 Kommentare

Hallo, ich habe eine Fritzbox 7490 und einen Archer C5 mit OpenWRT. Die Fritzbox ist mein Hauptrouter. Ich würde daneben gerne ein komplett getrenntes ...

Off Topic
Bewerbungsfragen FISI
IT-ProVor 1 TagFrageOff Topic14 Kommentare

Hi, Ja, der Titel mag etwas komisch klingen. Aber das wird sich in den folgenden Zeilen hoffentlich lösen. Ich habe mich hier gerade durch ...

Linux
Bootable Win7 stick from Raspberry commandline
winlinVor 1 TagFrageLinux12 Kommentare

Hallo zusammen Ich benötige einen bootfähigen Win7 USB Stick. Muss diesen über meine Raspberry erstellen. Was ist die beste Variante habe schon ein paar ...

Windows Server
Remotedesktopgateway Zertifikat - Zugriff überall
lukas0209Vor 1 TagFrageWindows Server9 Kommentare

Guten Abend zusammen, ich habe eine Frage bzgl. des Windows Remotedesktopgateways. Wir nutzen einen Windows Server 2016 Essentials, dieser bringt von Haus aus die ...

Off Topic
Verwaltungskosten von Passwörtern
IT-ProVor 1 TagFrageOff Topic4 Kommentare

Guten Morgen liebe Menschen. Ich benötigte für die Erstellung meiner IHK-Projektarbeit ein paar Informationen zu den Kosten von Passwörtern. Ich habe aus folgendem Beitrag ...

Exchange Server
Mails fehlen im Exchange-Server 2016
it-basixsVor 1 TagFrageExchange Server4 Kommentare

Moin, moin zusammen. Ich habe leider ein Problem mit einem Exchange Server 2016 CU20 inkl. aller Patches. Laut Ereignisanzeige von POPcon, werden die Mails ...

Microsoft
Client verhält sich im Home Office wie Gerät vor 10 Jahren
Finchen961988Vor 13 StundenFrageMicrosoft8 Kommentare

Hallo liebes Forum, ich mal wieder und ich habe riesen ??? über den Kopf! Das Verhalten zu beschreiben wird nicht ganz einfach, da ich ...