Article ID: 169331
Article Last Modified on 1/13/2001
170365 INFO: Visual Studio 97 Service Packs - What, Where, and Why
Declare Function ReComputeRepository Lib "RepUtil" (ByVal szPath _
As String, ByVal szUser As String, ByVal szPwd As String) As Long
Sub Main()
'change the following path to the windows location for
'your machine
Dim lngRet As Long
sPath = "c:\WINDOWS\msapps\repository.mdb"
lngRet = RecomputeRepository(sPath,"","")
MsgBox "The return value is (" & lngRet & ")!"
End Sub
The return code is not 0.
The return code be 0.
Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp1fix kbvs97sp2fix kbvbp500sp1fix KB169331