Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien verschieben
Autor: B...W...
Datum: 26.03.09 13:44
Hallo, ich weiß, dass es zu diesem problem schon einige topics gibt, die lösungsansätze funktionieren bein mir leider nicht. wer weiß was ich falsch mache. mein skript schaut wiefolt aus '*Zaehlen ob die Anzahl an Dateien passt set fs = Createobject("Scripting.FileSystemobject") set start = fs.getfolder("C:\temp\import") dim anzahl_dateien sub zaehlung(obj) anzahl_dateien = anzahl_dateien + obj.files.count for each unterordner in obj.subfolders zaehlung unterordner next end sub zaehlung(start) msgbox anzahl_dateien If Anzahl_dateien = 2 then msgbox("Alles OK") else msgBox("da fehlt was") end if Zusätzlich soll jetzt, nach der MSGBOX was passieren. Alle gefundenen dateien, sollen nun in einen anderen Ordner verschoeben werde. Folgendes habe ich schon probiert: set fso = Createobject("Scripting.FileSystemobject") set f1 = fso.GetFolder("c:\temp\import\") f1.copyfile ("c:\\temp\\import\\*.csv", "c:\\temp\\test\\") Leider hat das nicht geklappt. was mach ich falsch. Danke 0 Beitrag wurde zuletzt am 26.03.09 um 13:45:04 editiert.

Dateien verschieben	2.125	B...W...	26.03.09 13:44
Re: Dateien verschieben	1.176	Dieter	26.03.09 20:57
Re: Dateien verschieben	1.137	B...W...	27.03.09 09:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen