Open Dialogue Box to a certain folder?????

  • Thread starter Thread starter German
  • Start date Start date
G

German

Does anyone know how to open a dialogue box that will open to a
specific folder of my choosing?? I am able to open the dialogue box
but it defaults to the last folder that was used.

The code I am using looks like this:

'Filt = "All Files (*.*),*.*"
'Title = "Import Routine"
'FileName = Application.GetOpenFilename(Filt, 5, Title, True)

Thanks in Advance

G-.
 
Not tested but I think you need to set the Application.DefaultFilePath which
specifies where Excel goes to find a file when opening.

Cheers
N
 
Sorry have now tested and that is not it!!
Will continue to search for a solution.
Cheers
N

Nigel said:
Not tested but I think you need to set the Application.DefaultFilePath which
specifies where Excel goes to find a file when opening.

Cheers
N







----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
Click to expand...
=---
 
Might this be of use?

ChDrive "C"
ChDir "C:\Something\something else\etc\"
vFilename = Application.GetOpenFilename _
(FileFilter:="Excel Files (*.xls),*.xls", _
MultiSelect:=True) 'MultiSelect to let user choose
'more than one file
If TypeName(vFilename) = "Boolean" Then
MsgBox "No file was selected"
Exit Sub
Else
'do your stuff here.

Of course this does not stop the user browsing to
anothe folder!

Regards.
 
That is an awesome idea, but I am not using a structure of
"C:\something\something else\ etc\", I have to use something like
"\\somehting\something else\" any ideas on how to do that, the problem
is that all users might not have same mapping.

Thanks,

G-.
 
Netscape crashed just as I hit the Send button (sorry about any duplicate post):

here's a post from Rob Bovey/Tom Ogilvy:

========

Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long

Sub ChDirNet(szPath As String)
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub

Example of usage

Sub GetFile()
On Error GoTo ErrHandler
ChDirNet "\\LOGD0FILES\OGILVTW\Docs\Temp"
Exit sub
ErrHandler:
MsgBox "Couldn't set path"
End Sub

Use like ChDir and ChDrive combined.
 
Back
Top