תודה לכולם צ'אט g.p.t נתן לי פקודות מתאימות
להעתקת קבצים
להעתקת תקיות
Sub CopyFiles1() Dim sourceFolder As String Dim destinationFolder As String Dim fso As Object sourceFolder = "C:\respbkup\A" destinationFolder = "C:\Users\Public\Documents\" Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFolder sourceFolder, destinationFolder Set fso = Nothing End Subתודה לכולם