Copy file path to cell

Good Morning

If I have a macro that creates a folder baseed on the contents of several cells, what line of code could I use to copy that final file path through to the sheet in cell F2.

The start location would be for example C:\

It then looks for a current year folder, a current month folder and then the previous working day folder if any one of those dont appear then it creates it, so i just want the end path that would look something like C:\2014\august\26th

Thanks Dave

thanks for the reply

Sorry maybe i wasnt clear with what I wanted, that part I would be fine with what I want is the actual file path to be input into cell F2, I will then use the code as you suggested in anther macro to move some files to this created folder location based on the contents of that cell.

I have found the following website but just seem to be strugling to get the final result that I require

http://www.exceltrick.com/formulas_m...object-in-vba/

maybe the step could be added to the existing macro.

For example at the moment it checks to see if the folder exists, If it does it moves to the next step and carries on the process untill it doesnt find a folder, as soon as no folder is found it then creates on, could there be a line of code that says when evere a folder is created or a folder is found copy filepath just created/found to cell F2 and then Exit Sub

Does this not require the user to point to the file location though?

The macro below I use creates a folder and I want the FSO procedure to get the path that has just been created and enter it into the cell without the user having to do this.

Here is my current macro

Sub Create_Folder_Move_Files()

     Dim strDefpath, mainfolder, subfolder, subsubfolder, strPathname As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        
    On Error Resume Next                        ' If directory exist goto next line

    strDefpath = "\\ccfilesvr\shared\membership services\operations\supervisors\RESOURCE AREA stats & info\Statistics\Daily Stats Import\"  'Default path name
      
    mainfolder = Sheets("Move & Rename").Range("C2").Value              ' stores value of C2 cell
    subfolder = Sheets("Move & Rename").Range("D2").Value               ' stores value of D2 cell
    subsubfolder = Sheets("Move & Rename").Range("E2").Value            ' stores value of E2 cell

    If IsEmpty(mainfolder) Then Exit Sub

    MkDir strDefpath & mainfolder                 ' Check or create mainfolder
    strPathname = strDefpath & "\" & mainfolder
    
    If IsEmpty(subfolder) Then Exit Sub
  
    MkDir strPathname & "\" & subfolder           ' Check or create subfolder
    strPathname = strDefpath & "\" & mainfolder & "\" & subfolder
    
    If IsEmpty(subsubfolder) Then Exit Sub
    
    MkDir strPathname & "\" & subsubfolder         ' Check or create subsubfolder
    strPathname = strDefpath & "\" & mainfolder & "\" & subfolder & "\" & subsubfolder
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
     
End Sub

If anyone can help, I have tried all sorts off varients of the FSO method and I must be going about it wrong as I am unable to get it to work, I have found lots of different websites with example but none that I can get to do what I need.

Bump!!!!!!!

Is there a way to find the most recent modified/created folder within a pre determined path and then enter the file path to a cell?

solved here

http://www.excelforum.com/excel-prog...o-to-cell.html