Hello TLennertz

Use the MoveFile Function. With this you can cut a file or folder (with all included Subfolders or files) and past it in a new location.

Bye Murof

With Comfort Panel you can copy all the files from folder (this does not include files in subfolders) .* is any file. You need to go through files one by one.

Dim fs, file

Set fs = CreateObject("FileCtl.FileSystem")

file = fs.Dir(somePath, “*.*”) 'Get first file

Do while file <> “”

fs.FileCopy  somePath" & file, someDestination& file” ' Copy to destination

file = fs.Dir() ' get next file.....

Loop

MoveFile will work like Murof wrote it will move all folders and files. Path is to folder.

fs.MoveFile somePath, destination

With PC (Advanced, Pro) If there are no subfolders you can do following to copy all the files.

Dim fso

Set fso =CreateObject("Scripting.FileSystemObject")

fso.CopyFile somePath & ".*",someDestination

Or copy everything including subfolders

fso.GetFolder(someFolder).Copy "someDestination"

If you need to only copy files and you have subfolders any of these wont work, but it can be done.