Save File

[ddbusiness]

I am having trouble saving a file in a different location but using the same file name.
I open the file from the "C:\Aus_Nav\2011\August" folder and then I change the data automatically through some other code and then after that code is run I want to save it by default back one folder "C:\Aus_Nav\2011\" folder. I want it this way as next year the opening folder would be "C:\Aus_Nav\2012\August" and I would want it to be saved into "C:\Aus_Nav\2011\". Even better would be to save it into the a folder that is the current month the file is being saved (I don't think this 2nd option is possible and that's why I suggest the other option).

The "Application.Dialogs(xlDialogSaveAs).Show" uses the same file name as I want but it saves it into the same folder it was opened from. I've research for many hours and tried several ways but have succeeded.

I would appreciate any help anyone can give me.

[snb]

Sub snb()
  With Workbooks.Open("C:\Aus_Nav\2011\August\test.xls")
    .SaveAs Replace(CreateObject("scripting.filesystemobject").getfolder(.Path).parentfolder & "\" & .Name, "\\", "\")
  End With
End Sub

[royUK]

What code have you got now?

[ddbusiness]

Sorry I did not reply last night as I went to bed just before you replied RoyUK being 10pm in Sydney.
The code snb sent I can't get to work as it saves it in the same folder listed on the first line of the code.
Myself when I posted this I was only using the dialog save as code.

Application.Dialogs(xlDialogSaveAs).Show

[ddbusiness]

I've come up with some other code but it doesn't quite work.The dialog box does save a file in one folder up from where the file was opened from so I can choose a different folder under it. But now I loose the original filename in the dialog box. The dialog box does not have a filename listed. Thanks for any help you can give me.

With Application.FileDialog (msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then fPath = Left(ThisWorkbook.Path, LastSlash)
  End With

[snb]

The code snb sent I can't get to work as it saves it in the same folder listed on the first line of the code.

I fear your eyes were to tired when you tested.
Prerequisite for the code to work is that the filepath has more than 1 subfolder.

[ddbusiness]

It seems the the code only saves it in the same folder list in the first line (August) of the code and not rather than (2011): one folder down from the original
Sorry I shut my computer down just as you sent your reply as it was late in Australia.
Thanks for any suggestions

[ddbusiness]

With help from a few the following has helped me resolve this.
Thanks

Dim YourPicker As FileDialog
Dim FolderForFile As String
 Set YourPicker = Application.FileDialog(msoFileDialogFolderPicker)
    With YourPicker
    .Title = "browse folder to save " & ThisWorkbook.Name & " In:"
     .InitialView = msoFileDialogViewDetails
     .AllowMultiSelect = False
 If InStrRev(ThisWorkbook.Path, "\") > 3 Then
  .InitialFileName = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
 Else
     .InitialFileName = ThisWorkbook.Path
     End If
     If .Show = -1 Then
        ThisWorkbook.SaveAs .SelectedItems(1) & IIf(Len(.SelectedItems(1)) = 3, "", "\") & ThisWorkbook.Name
        Else:
            Exit Sub
        End If
   End With