Free for PREMIUM members
[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now
dim rootfolder, fso, oFol, f, replaceString
' change these two, as you need to
rootFolder = "C:\Users\arweeks\Desktop"
' ---- no need to change below here unless you have a reason to -----
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFol = fso.GetFolder(rootFolder)
for each f in oFol.files
if instr(f.name,replaceString) then
fso.MoveFile rootFolder & "\" & f.name, rootFolder & "\" & replace(f.name,replaceString,"")
Open in new window
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.