Ich habe folgendes vor:
Ich möchte aus einer Excelanwendung heraus Dateien von einem in einen anderen Ordner kopieren.
Dabei möchte ich die Dateien aber nicht öffnen müssen.
Hat jemand eine Idee, wie sowas VBA-technisch aussehen könnte?
Gruß
Frank
Sub Feilen_kopieren()
Const bolUeberschreiben As Boolean = True
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Quellordner\*.xls", "D:\Zielordner\", bolUeberschreiben
Set objFSO = Nothing
End Sub
Gruß K.Rola