Tony Toews
7/30/2012 6:32:00 AM
On Sun, 22 Jul 2012 10:01:59 +0100, "Mike Williams"
<Mike@WhiskyAndCoke.com> wrote:
>Thank you. Much appreciated.
I haven't got that far with this and would appreciate some help.
I've got the following.
Private Const FILE_SHARE_NONE As Long = &H0
Private Const FILE_SHARE_READ As Long = &H1
Private Const FILE_SHARE_WRITE As Long = &H2
Private Const FILE_FLAG_OPEN_REPARSE_POINT = &H200000
Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
hFile = CreateFile(IncomingJunctionPointFolder & vbNullChar,
GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_NONE, 0&, _
OPEN_EXISTING, FILE_FLAG_OPEN_REPARSE_POINT Or
FILE_FLAG_BACKUP_SEMANTICS, 0&)
But it's not opening the folder. I'm just getting -1 as the return
code and I'm not sure where my error is.
I've removed the trailing backslash from the incoming folder name.
I'm darned sure that the folder is indeed such a symbolic link as I
tested for that earlier. Beside it's 'C:\Users\ttoews\My Documents'
which is a junction point.
Tony