omg plzzzz help impossible conversion vb--->vb.net

[isaac rainsford (MCSE)]

can anyone lend some assistance on how to convert some code to vb.net
from vb5?

in VB5 the code succeeds and the IF statement is processed, in Vb.NET
the code returns error and the msgbox returns an 18 digit error code!

thanks in advance

the code is:

Private Const SE_FILE_OBJECT = 1&
Private Const DACL_SECURITY_INFORMATION = 4&

Private Declare Function GetNamedSecurityInfo Lib "Advapi32.dll" Alias _
"GetNamedSecurityInfoA" _
(ByVal ObjName As String, _
ByVal SE_OBJECT_TYPE As Long, _
ByVal SecInfo As Long, _
ByVal pSid As Long, _
ByVal pSidGroup As Long, _
ByVal pDacl As Long, _
ByVal pSacl As Long, _
ByVal pSecurityDescriptor As Long) As Long

Dim result As Long
Dim pSecDesc As Long
Dim ea As Any
Dim pNewDACL As Long
Dim pOldDACL As Long

result = GetNamedSecurityInfo("c:\test1", SE_FILE_OBJECT, _
DACL_SECURITY_INFORMATION, 0&, 0&, pOldDACL, 0&, pSecDesc)

If result = ERROR_SUCCESS Then
... snip snip snip ...

Else
MsgBox("GetNamedSecurityInfo failed with error code : " & result)
End If

[Cor Ligthert]

Hi Isaac,

You did not change that "long", when you do not change it that will be the
answers you get.

Cor

[Cor Ligthert]

Hi Isaac,

I did not look in the general group before I was sending this, however see
this thread

http://tinyurl.com/yq6q8

Than you see what I mean.

Cor

[Herfried K. Wagner [MVP]]

* "isaac rainsford (MCSE)" <ro****@dr.com> scripsit:

in VB5 the code succeeds and the IF statement is processed, in Vb.NET
the code returns error and the msgbox returns an 18 digit error code!

The code must be converted to VB.NET first. Sample code can be found
here:

<URL:http://groups.google.de/groups?selm=p287w1KWCHA.2084%40cpmsftngxa10>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[isaac rainsford (MCSE)]

chrs again! i've changed the Long's to Int32's... i did not know of
Int32 before...

previously, the error code would increase by a few billion every time i
clicked on my button "Command1"... now the error code is static and it
is 87... how should i go about finding what the error code means?

isaac.

Cor Ligthert wrote:

Hi Isaac,

I did not look in the general group before I was sending this, however see
this thread

http://tinyurl.com/yq6q8

Than you see what I mean.

Cor