VBA Folders: Create or Move Folders to match Directory

[arcaidius]

Goal: Need Folders to match names in Column C of Spreadsheet
IF Folder Exists. Do nothing
IF Folder Does Not Exist. Create
IF Folder Name is not found in Column C, Move to different location

Mighty Excel Masters please help, maybe you can tweak the code i have? It worked to create all the folders but not sure how to tweak it.

Sub UpdateFolders_Click()

Dim Rng As Range

Dim maxRows, maxCols, r, c As Integer

Set Rng = Range("C1:C99")

maxRows = Rng.Rows.Count

maxCols = Rng.Columns.Count

For c = 1 To maxCols

r = 1

Do While r <= maxRows

If Len(Dir("C:\Location\Location\Location" & "\" & Rng(r, c), vbDirectory)) = 0 Then

MkDir ("C:\Location\Location\Location " & "\" & Rng(r, c))

On Error Resume Next

End If

r = r + 1

Loop

Next c

End Sub

 

[arcaidius]

Maybe I need to clarify what I'm Missing?

I need the code to check if a folder exists in the location but does not exist in column C, and move that folder to a different location.

Example: The list in column C is employees, if an employee quits than they are removed from the list and I need this Macro to move that employees folder to a different location in case they are re-hired, the documents will still be available. Maybe I can check that location first before creating a new folder?

 

[arcaidius]

Can anyone help with this? I need this to move any folder that does NOT match the name in Column C to a different destination.