Browse for new save location then copy file across

[sharky12345]

Can someone show me how to browse for a folder to save a file and then once the user has identified a folder copy a file across to it?

I haven't got the details yet of the file that will need copying across but I will have the full path when it comes to it.

 

[ParamRay]

Use a function:

Function GetFolder() As String
  With Application.FileDialog(4)
    .Title = "Pick a Folder"
    .InitialFileName = Environ("UserProfile") & "\Documents\"
    .ButtonName = "Select Folder"
    If .Show Then GetFolder = .SelectedItems(1)
  End With
End Function

 

[sharky12345]

Thanks - but how do I copy the file to the new path?

 

[ParamRay]

Does the user also need to choose the file to be copied, or is it always at a fixed path? Not enough info given...

 

[sharky12345]

Always a fixed path - thanks!

 

[sharky12345]

*bump*