Das Online-Forum rund um das LibreOffice Softwarepaket
https://www.libreoffice-forum.de/
Code: Alles auswählen
' Create File system object
Set oWSH = CreateObject("Wscript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
' mri oFSO
Code: Alles auswählen
Sub ExampleFilecopy
Filecopy "C:\TEST\OberOrdner", "C:\TEST\Anderer_Ordner"
end sub
F1 Hilfe hat geschrieben: Mit der FileCopy-Anweisung können nur Dateien kopiert werden, die zum Zeitpunkt des Kopierens nicht geöffnet sind.
Was es nicht alles gibt...Copying, Renaming, Deleting and Checking the Existence of Files
The following call creates a copy of the Source file under the name of Destination:
--> FileCopy(Source, Destination)
With the help of the following function you can rename the OldName file with NewName. The As keyword syntax, and the fact that a comma is not used, goes back to the roots of the Basic language.
Danke schön.Du bist der Beste
Ganz ehrlich gesagt: Habs halt auf die schnelle vorm posten selber getestet.Wie kommt man darauf, das Filecopy, auch Ordner,
samt Unterordner und die Dateien kopiert.
Filecopy ist zwar einfacher, wenn man aber mal selbst an den Dateibaum muß ist