Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Sub ArchiveFiles() Dim fso As Object Dim sSourceDir As String Dim sTargetDir As String sSourceDir = "K:\Public\Marketing Secure\Shared\" sTargetDir = "K:\Public\Marketing Secure\Shared\Oracle Files\" Set fso = CreateObject("Scripting.FileSystemObject") fso.movefile Source:="Costs*.xls", Destination:=sTargetDir fso.movefile Source:="Status*.xls", Destination:=sTargetDir End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|JSON Response and request in VB6 application||11||1,064|
|Question about INSTR - need to extract data MS ACCESS query||6||69|
|VBA- How to change font, color and format in outlook e-mail sent from Access||2||173|
Join the community of 500,000 technology professionals and ask your questions.