Can not change default folder to network resource

[side_]

Hello,

I have faced strange problem with the following code:

DefCatalogue = ThisWorkbook.Path
ChDir (DefCatalogue)
nFileNum = FreeFile
Open "Message.txt" For Input Access Read As #nFileNum

It was working fine when both workbook and Message.txt were located o
local drive. But when I have moved both files to network resource i.e
"\\PC_3\shareddocs\Shared files\Tmp" the code breaks on file ope
statement and it happens because ChDir does not make any changed t
default directory.

Does anyone have any ideas why it does not work

 

[Dave Peterson]

Chdir doesn't work with UNC paths. There's an API that you could use to change
to that drive, but I don't think you need to in your code:

DefCatalogue = ThisWorkbook.Path
nFileNum = FreeFile
Open defCatalogue & "\" & "Message.txt" For Input Access Read As #nFileNum

 

[Ivan Raiminius]

Hi,

I am afraid that neither open works with UNC paths (the path must start
with a letter).

Regards,
Ivan

 

[Dave Peterson]

Are you sure?

I don't have the ability to test that anymore, but that's not the way I recall.

 

[Ivan Raiminius]

Hi Dave,

you are right, I just tried open with UNC path and it works.

Thanks,
Ivan

 

[Dave Peterson]

Thanks for posting back with your test results.

Hi Dave,

you are right, I just tried open with UNC path and it works.

Thanks,
Ivan

 

[side_]

Thanks for you help.

Regards,
Side