Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Sub ArchiveFiles() Dim fso As Object Dim sSourceDir As String Dim sTargetDir As String sSourceDir = "C:\my documents\" sTargetDir = "C:\my documents\backup\" Set fso = CreateObject("Scripting.FileSystemObject") fso.movefile Source:=sSourceDir & "Costs*.xls", Destination:=sTargetDir fso.movefile Source:=sSourceDir & "Status*.xls", Destination:=sTargetDir End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.