We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
strSourceFolder = "C:\Temp\EMARTEST" If Right(strSourceFolder, 1) <> "\" Then strSourceFolder = strSourceFolder & "\" Set fso = CreateObject("Scripting.FileSystemObject") Set objSource = fso.GetFolder(strSourceFolder) For Each oFile In objSource.Files strFirst3 = Left(oFile.Name, 3) If Not fso.FolderExists(strSourceFolder & strFirst3) Then fso.CreateFolder strSourceFolder & strFirst3 End If fso.MoveFile strSourceFolder & oFile.Name, strSourceFolder & strFirst3 & "\" Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Accidentally deleted Outlook data files. I restored from recycly bin, but Outlook can't find the files now.||12||139|
|iPhone 6s 10.3.1 is NOT importing large videos to windows 7 desktop pc upon USB connection.||2||37|
|Windows Server 2003||2||48|
|I need to archive our organization's mailboxes. But I'm reading that PST files shouldn't be put on network shares?!||8||52|
Join the community of 500,000 technology professionals and ask your questions.