See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
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
|How to combine txt files and change .txt extension||7||42|
|"J" column have the (Q) original color on top of row given color when being refresh.||30||38|
|How to edit the macro code to limit the number of characters when creating worksheet tab name||5||38|
|Sending Attachment via CDO||3||22|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!