showsave dialog

can some one tell me how do i open the showsave dialog box with a default directory
such as c:\a\b\c

Dim extenion As String
saveFile = ""
extention = ""
saveFile = oWord.ActiveDocument.Name
myString = Split(saveFile, ".")
saveFile = myString(0)
ffilename = myString(0)
'extension = myString(1)
saveFile = myString(0)
Dim pa As String
CommonDialog1.FileName = saveFile& "-INT#1"
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowSave
Dim ex As String

this is the code i have
any suggestions??




if do this

Dim extenion As String
saveFile = ""
extention = ""
saveFile = oWord.ActiveDocument.Name
myString = Split(saveFile, ".")
saveFile = myString(0)
ffilename = myString(0)
'extension = myString(1)
saveFile = myString(0)
pa = app.path
Dim pa As String
CommonDialog1.FileName = pa & "-INT#1"
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowSave
Dim ex As String


i get the the path c:\a\b\
but then the c goes into the filename box
weird!!!

Just add:

Code:

---

CommonDialog1.InitDir = "c:\a\b\c\"

---