Folders reorganize

nmkhan3010 · Apr 11th 2020

Hi,

Am having number of documents in folder with common name like "FinancialTables" & "Taggedtables"

I want to create a folder with the name financial tables and copied all the files with the name having financial tables in to that folder.

I want to create a another folder with the name tagged tables and copied all the files with the name having tagged tables in to that folder.

File formats .rtf, .docx , .pdf , .doc

main objective is to sepeate a files with financial tables and tagged tables that are tagged with the file names

PFA

Thanks in advance .........

**royUK** · Apr 11th 2020

Isn't this a variation on your last post?

nmkhan3010 · Apr 11th 2020

This is totally different previous post was regarding copying specific files based on the excel sheet value, if it is available give a comment as "Copied" and i f not available "Does not exits" and now i want to seperate the files with the common name and create a folder with the common name and copying all the files into that.

i hope you understand my objective.....

**royUK** · Apr 11th 2020

I haven't tested this but let me know if it needs adjusting and any errors.

Code

Option Explicit


Sub CreateFolders()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim iX As Integer
Const sFldr1 As String = "FinancialTables"
Const sFldr2 As String = "Taggedtables"


Set oFSO = CreateObject("Scripting.FileSystemObject")


Set oFSO = CreateObject("Scripting.FileSystemObject")


''///Create New Folders
oFSO.CreateFolder "C:\" & sFldr1
oFSO.CreateFolder "C:\" & sFldr2
''/// move the files
For iX = 1 To 4
oFSO.MoveFile "C:\" & sFldr1 & "\*" & sFldr1 & "." & Choose(iX, "rtf", "docx", "pdf", "doc"), "C:\" & sFldr1 & Application.PathSeparator
oFSO.MoveFile "C:\" & sFldr2 & "\*" & sFldr2 & "." & Choose(iX, "rtf", "docx", "pdf", "doc"), "C:\" & sFldr2 & Application.PathSeparator
Next iX
End Sub

Display More

nmkhan3010 · Apr 11th 2020

Hi,

Thanks for replying and folder has created successfully but files are not moving into that and it could be a better to add source path as input box because path need to be changed everytime and everyday

INPUTBOX("PLEASE ENTER PATH", "SOURCE PATH")

Destination path is the same as input path....

Please find the zip files for testing and thanks a lot for considering this......

Folders reorganize

Participate now!

Share

Tags

Users Viewing This Thread