Toppers - Thanks for your assistance - it is difficult as the PVCS support
said this is not a problem (I agree with you and believe the problem is with
PVCS).

Thanks again.

Andi


"Toppers" wrote in message
...
Andi,
Obviously I can't test as I don't have PVCS but looking at your
code, and the fact that the filename is passed as a string, would suggest to
me that the problem DOES lie with PVCS.

All the testing I have done has worked with Excel VBA quite happily. Is it
worth changing the "error" statement to add "as String" to SelectedFile
declaration. It wouldn't appear necessary but I have run out of ideas.

Sorry I can't be of more help.

status = PvcsOpenArchive(ByVal SelectedFile as String, ByVal workfile, ByVal
Len(workfile), ByVal archive, ByVal Len(archive), PVCS_OPEN_RDONLY, handle)


"Andibevan" wrote:

No problem:-

The line that causes a problem is:-
status = PvcsOpenArchive(ByVal SelectedFile, ByVal workfile, ByVal
Len(workfile), ByVal archive, ByVal Len(archive), PVCS_OPEN_RDONLY,
handle)
Function GetRevisionInfo(SelectedFile As String)
Dim handle As Long ' Handle for the archive to be
opened
Dim workfile As String * 256 ' Workfile
Dim archive As String * 256 ' Archive
Dim status As Integer ' Status returned from the DTK
function
Dim revision As String ' Revision number
Dim branch_count As Long ' Number of branches
Dim lock_count As Long ' Number of locks
Dim level As Long ' Revision level
Dim checkin_date As String * 35 ' Date revision was checked in
Dim modify_date As String * 35 ' Date revision was modified
Dim ordinal As Long ' Ordinal number
Dim receive_revision As String * 35 ' Revision number that was looked
at
by the function
Dim revision_index As Long ' Revision index number
Dim flags As Long ' Flags
Dim txtQueryResults As String, txtOpenResults As String ' Status
indicators
Dim txtInfoResults As String, txtCloseResults As String ' Status
indicators

' Initialize configuration settings
status = PvcsQueryConfiguration(ByVal 0&, ByVal 0&, 0,
PVCS_CONFIG_OVERWRITE)
txtQueryResults = status

' Open archive for read-only access
status = PvcsOpenArchive(ByVal SelectedFile, ByVal workfile, ByVal
Len(workfile), ByVal archive, ByVal Len(archive), PVCS_OPEN_RDONLY,
handle)
txtOpenResults = status

' Get information about the revision
' Archive handle
' Name of the archive or workfile
' Revision to retieve information about
' Buffer receiving number of brances off this revision
' Buffer receiving number of locks on this revision
' Buffer receiving revision level
' Buffer receiving name of archive owner
' Buffer receiving the date that the revision was checked in
' Buffer receiving the date that the revision was modified
' Buffer receiving the ordinal number
' Buffer receiving the revision number
' Revision information structure about which to return information
' Flags
' revision = "1.3" ' This can be a revision number, label, or
promotion group
status = PvcsGetRevisionInfoVB(ByVal handle, ByVal SelectedFile, ByVal
revision, _
branch_count, lock_count, level, ByVal checkin_date, ByVal
modify_date, _
ordinal, ByVal receive_revision, ByVal revision_index,
PVCS_REVINFO_USE_DATETIME_FORMAT)
txtInfoResults = status

'txtArchive = SelectedFile
'txtRevisionNbr = revision
'If status = 0 Then ' Display the output
'txtNbrBranches = branch_count
'txtNbrLock = lock_count
'txtRevLevel = level
'txtCheckInDate = checkin_date
'txtModDate = modify_date
'txtOrdinal = ordinal
'txtRevisionGot = receive_revision
'txtRevIndex = revision_index
'End If

GetRevisionInfo = receive_revision

' Close archive
status = PvcsCloseArchive(handle) ' Pass in the handle to the
archive
txtCloseResults = status
End Function