GetSaveAsFilename
 

Dim myCurFolder As String
Dim myNewFolder As String

myCurFolder = CurDir
myNewFolder = "c:\decpro"

ChDrive myNewFolder
ChDir myNewFolder

'do your work

'change back
ChDrive myCurFolder
ChDir myCurFolder

ernie wrote:

Hello Everyone

I need the code below to go look in a specific location first instead of the
'My Documents' folder. For example 'C:\DecPro\'.

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If

--
Thanks for all your help, I really appreciate your time.
Ernie

--

Dave Peterson