ChDir statement

[neta]

Hi,

I am using the "chdir" statement in VBA - in the "before open" private sub. the statement does not work - the default directory does not change (stay as "my document").

In the help it is written that The ChDir statement changes the default directory but not the default drive.

Any ideas ?

Thanks a lot !

[Ron de Bruin]

Use

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

This is not working for a network folder

Use this then

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

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


And this in your code

ChDirNet "\\ComputerName\YourFolder"



--
Regards Ron De Bruin
http://www.rondebruin.nl



"neta" <[email protected]> wrote in message
news:[email protected]...
>
> Hi,
>
> I am using the "chdir" statement in VBA - in the "before open" private
> sub. the statement does not work - the default directory does not
> change (stay as "my document").
>
> In the help it is written that The ChDir statement changes the default
> directory but not the default drive.
>
> Any ideas ?
>
> Thanks a lot !
>
>
> --
> neta
> ------------------------------------------------------------------------
> neta's Profile: http://www.excelforum.com/member.php...fo&userid=7624
> View this thread: http://www.excelforum.com/showthread...hreadid=552335
>

[Ron de Bruin]

Use

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

This is not working for a network folder

Use this then

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

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


And this in your code

ChDirNet "\\ComputerName\YourFolder"



--
Regards Ron De Bruin
http://www.rondebruin.nl



"neta" <[email protected]> wrote in message
news:[email protected]...
>
> Hi,
>
> I am using the "chdir" statement in VBA - in the "before open" private
> sub. the statement does not work - the default directory does not
> change (stay as "my document").
>
> In the help it is written that The ChDir statement changes the default
> directory but not the default drive.
>
> Any ideas ?
>
> Thanks a lot !
>
>
> --
> neta
> ------------------------------------------------------------------------
> neta's Profile: http://www.excelforum.com/member.php...fo&userid=7624
> View this thread: http://www.excelforum.com/showthread...hreadid=552335
>

[sdoscher]

Ron - You ROCK...thx for help with this...yes...7 years later it helped someone!

Use

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

This is not working for a network folder

Use this then

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

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


And this in your code

ChDirNet "\\ComputerName\YourFolder"



--
Regards Ron De Bruin
http://www.rondebruin.nl



"neta" <[email protected]> wrote in message
news:[email protected]...
>
> Hi,
>
> I am using the "chdir" statement in VBA - in the "before open" private
> sub. the statement does not work - the default directory does not
> change (stay as "my document").
>
> In the help it is written that The ChDir statement changes the default
> directory but not the default drive.
>
> Any ideas ?
>
> Thanks a lot !
>
>
> --
> neta
> ------------------------------------------------------------------------
> neta's Profile: http://www.excelforum.com/member.php...fo&userid=7624
> View this thread: http://www.excelforum.com/showthread...hreadid=552335
>

[sschuldenzucker]

Yes. Yes, it did.