Hello X-L Gurus!
I am using the GetOpenFileName method and I would like to have it open into a
predetermined folder. I wrote the code as follows:

ChDir "G:\MULTUS\PROVEOUT\"
strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
want to process.")

It opens in the "My Documents" folder instead. Any ideas?

Thank You,
-plh

PS:
I also tried
ChDir "G:\MULTUS\PROVEOUT"
strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
want to process.")
That is without the final "\" in the ChDir statement and got the same result.


--
Where are we going and why am I in this HAND BASKET??

Try this instead:

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

Function ChDirAPI(strFolder As String) As Long
'will return 1 on success and 0 on failure
'will work with a UNC path as well
'-----------------------------------------
ChDirAPI = SetCurrentDirectoryA(strFolder)
End Function

Then just replace your ChDir with ChDirAPI


RBS



"plh" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello X-L Gurus!
> I am using the GetOpenFileName method and I would like to have it open
> into a
> predetermined folder. I wrote the code as follows:
>
> ChDir "G:\MULTUS\PROVEOUT\"
> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file
> you
> want to process.")
>
> It opens in the "My Documents" folder instead. Any ideas?
>
> Thank You,
> -plh
>
> PS:
> I also tried
> ChDir "G:\MULTUS\PROVEOUT"
> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file
> you
> want to process.")
> That is without the final "\" in the ChDir statement and got the same
> result.
>
>
> --
> Where are we going and why am I in this HAND BASKET??

You need to be on drive G: before it will let you change directory

ChDrive "G"
ChDir "G:\MULTUS\PROVEOUT\"

"plh" wrote:

> Hello X-L Gurus!
> I am using the GetOpenFileName method and I would like to have it open into a
> predetermined folder. I wrote the code as follows:
>
> ChDir "G:\MULTUS\PROVEOUT\"
> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
> want to process.")
>
> It opens in the "My Documents" folder instead. Any ideas?
>
> Thank You,
> -plh
>
> PS:
> I also tried
> ChDir "G:\MULTUS\PROVEOUT"
> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
> want to process.")
> That is without the final "\" in the ChDir statement and got the same result.
>
>
> --
> Where are we going and why am I in this HAND BASKET??
>

Or have a look at the help file on the dialogs object

Make sure you change the drive, too:

Dim myFolder as string
myFolder = "G:\MULTUS\PROVEOUT\"
ChDrive myFolder
ChDir myfolder





plh wrote:
>
> Hello X-L Gurus!
> I am using the GetOpenFileName method and I would like to have it open into a
> predetermined folder. I wrote the code as follows:
>
> ChDir "G:\MULTUS\PROVEOUT\"
> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
> want to process.")
>
> It opens in the "My Documents" folder instead. Any ideas?
>
> Thank You,
> -plh
>
> PS:
> I also tried
> ChDir "G:\MULTUS\PROVEOUT"
> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
> want to process.")
> That is without the final "\" in the ChDir statement and got the same result.
>
> --
> Where are we going and why am I in this HAND BASKET??

--

Dave Peterson

Worked Swimmingly, Thank You!
-plh
In article <(E-Mail Removed)>, Dave Peterson says...
>
>Make sure you change the drive, too:
>
>Dim myFolder as string
>myFolder = "G:\MULTUS\PROVEOUT\"
>ChDrive myFolder
>ChDir myfolder
>
>
>
>
>
>plh wrote:
>>
>> Hello X-L Gurus!
>> I am using the GetOpenFileName method and I would like to have it open into a
>> predetermined folder. I wrote the code as follows:
>>
>> ChDir "G:\MULTUS\PROVEOUT\"
>> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
>> want to process.")
>>
>> It opens in the "My Documents" folder instead. Any ideas?
>>
>> Thank You,
>> -plh
>>
>> PS:
>> I also tried
>> ChDir "G:\MULTUS\PROVEOUT"
>> strCurrentFile = Application.GetOpenFilename(, , "Please choose the file you
>> want to process.")
>> That is without the final "\" in the ChDir statement and got the same result.
>>
>> --
>> Where are we going and why am I in this HAND BASKET??
>


--
Where are we going and why am I in this HAND BASKET??