May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
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.
|Excel - Save a copy of work book||13||96|
|I need help embedding an image as HTML in my vb.net application||3||84|
|VB6 calling COM DLL written in Visual Studio 2003||6||58|
|Win 10 Automation Error with .doCmd in Access||2||92|
Join the community of 500,000 technology professionals and ask your questions.