I have some workstations that will register and some that dont. It seems that there is somthing missing from the workststion like a dll.
I used the following code..
Option Explicit
Private Declare Function DllRegisterServer Lib "nwdir.ocx" () As Long
Private Declare Function DllUnregisterServer Lib "nwdir.ocx" () As Long
Const ERROR_SUCCESS = &H0
Private Sub Command1_Click()
If DllRegisterServer = ERROR_SUCCESS Then
MsgBox "Registration Successful"
Else
MsgBox "Registration Unsuccessful"
End If
End Sub
Private Sub Command2_Click()
If DllUnregisterServer = ERROR_SUCCESS Then
MsgBox "UnRegistration Successful"
Else
MsgBox "UnRegistration Unsuccessful"
End If
End Sub
On the machines that will not register I get a runtime error 48 but on other machines it works fine. The ocx is in the system dir. Mix of win95 and win98
