Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
strSourceFolder = "\\10.41.40.119\ercharts$" strTargetFolderA = "\\10.41.40.119\ercharts$" strTargetFolderB = "\\10.41.32.139\rootsftp$\MarinaMBS" If Right(strSourceFolder, 1) <> "\" Then strSourceFolder = strSourceFolder & "\" Set fso = CreateObject("Scripting.FileSystemObject") Set objSource = fso.GetFolder(strSourceFolder) For Each oFile In objSource.Files strFirst8 = Left(oFile.Name, 8) If Not fso.FolderExists(strTargetFolderA & strFirst8) Then fso.CreateFolder strTargetFolderA & strFirst8 End If fso.copyfile strSourceFolder & oFile.Name, strTargetFolderA & strFirst8 & "\" fso.MoveFile strSourceFolder & oFile.Name, strTargetFolderB & strFirst8 & "\" Next
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.