Selecting a folder

[Ricjd]

I have generated a file name for a document and i know how to save it, but now i want to be able to select the folder where it is to be save to.

Is there an easy way to present the user with a folder list which they then select. Hopefully somehting windows intragrated so they can create new files and so forth.

Thanking you in advance

Rick

 

[Bowers74]

Check out this thread:

thread707-640205



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[Bowers74]

This is the code that will do the job:

Sub ReturnFileNameToCell()
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim FileName As Variant
    Dim Title As String
'   File filters
    Filt = "Excel Files (*.xls),*.xls," & _
           "Text Files (*.txt),*.txt," & _
           "All Files (*.*),*.*"
'   Default *.*
    FilterIndex = 3
'   Dialog Caption
    Title = "Select a File to Import"
'   File Name
    FileName = Application.GetOpenFilename(FileFilter:=Filt, _
         FilterIndex:=FilterIndex, Title:=Title)
'   Exit on Cancel
    If FileName = False Then
        MsgBox "No file was selected."
        Exit Sub
    End If
'   Return full path and name of the file to a cell
    Range("A1") = "You selected " & FileName
End Sub

It's my code from the thread above.

I hope this helps!


Peace!

Mike

Never say Never!!!
Nothing is impossible!!!