Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien verschieben
Autor: B...W...
Datum: 27.03.09 09:17
Hallo, ich habe nach langem such nun endlich die Lösung erreicht. Vielen dank an alle die sich hierzu gedanken gemacht haben. sub move_file_imp_stage() dim fso, oFile, oFiles, oFolder, sQuelle, sZiel Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("C:\temp\Import") Set oFiles = oFolder.Files sZiel ="c:\temp\export\" For each oFile In oFiles sQuelle= fso.GetAbsolutepathname(oFile) fso.MoveFile sQuelle, sZiel Next end sub 0 Beitrag wurde zuletzt am 27.03.09 um 09:17:59 editiert.

Dateien verschieben	2.131	B...W...	26.03.09 13:44
Re: Dateien verschieben	1.179	Dieter	26.03.09 20:57
Re: Dateien verschieben	1.140	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