Dim WithEvents SdkObject As DYNAMSAWVSDKLib.SAWVSDK Set SdkObject = new DYNAMSAWVSDKLib.SAWVSDK Private Sub GetFilesByProject_Click() Dim ResultValue As Long Dim Canceled As Boolean Dim ResultDescription As String Dim FilesByProject As New SAWVFilesByProject 'Read all the files under project "$/ServerProjectName" on server. The read operation is limited to this directory. ResultValue = SdkObject.GetFilesByProject("$/ServerProjectName", FilesByProject, Canceled, ResultDescription) If ResultValue = 0 Then Dim Count As Long Count = FilesByProject.GetCount() Dim Index As Long For Index = 0 To Count - 1 Dim FileName As String FilesByProject.Get Index, FileName Next Else MsgBox "Calling 'GetFilesByProject' function fails." End If End SubThanks