Try this: It will open your temp folder for example and set it back to
origenal folder when you are ready

Sub test2()
Dim SaveDriveDir As String
Dim fname As Variant
SaveDriveDir = CurDir
ChDrive Environ$("temp")
ChDir Environ$("temp")

Dim wb As Workbook
fname = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If fname < False Then
Set wb = Workbooks.Open(fname)
MsgBox "your code"
wb.Close
End If
ChDrive SaveDriveDir
ChDir SaveDriveDir
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Daniel" wrote in message ...
ChDrive first then ChDir as per code sample supplied.

Daniel

"Orlando Magalhães Filho" a écrit dans le message de
...
Hi Daniel,

I'm sorry. Are you using ChDir and ChDrive or ChDrive and ChDir?

Regards,

---
Orlando Magalhães Filho

(So that you get best and rapid solution and all may benefit from the
discussion, please reply within the newsgroup, not in email)Orlando

"Daniel" escreveu na mensagem
...
Hello,
Within VB6, I have Excel(2000) open and I need to open another
workbook
using Application.GetOpenFilename(). I am using ChDir and ChDrive
before.
Eventhough ?App.Path in the immediate windows shows the correct path,
when
executing the method, another drive and folder is showned in the
dialogue
box. Is there a way to get it to open where I would like it to open?

Your help will be appreciated.

Sub prepareTSData()
Dim selectedFile As String, saveInThisDir As String
Dim theDrive As String, theFolder As String
'display dialog asking user to select a TSData file
saveInThisDir = saveInDir(currentFileInfo.fileName)
theDrive = Left(fullPath, 1)
ChDrive theDrive
theFolder = currentFileInfo.fileDir
ChDir theFolder
selectedFile = Application.GetOpenFilename( _
"Excel Files (*.xls),*.xls", , _
"Select your TSData file", , False)
...........

Daniel