Dim WithEvents sdkObject As SAWHSDKLib.SAWHAppObject

Set sdkObject = New SAWHSDKLib.SAWHAppObject

Private Sub GetFileStatus_Click()

	Dim Cancelled As Boolean
	Dim ResultDescription As String
	Dim FileStatusInSet As New SAWHFileStatusInSet
	Dim FileStatusOutSet As New SAWHFileStatusOutSet

	Dim FileName As String
	FileName = "$/FileName.txt"
	FileStatusInSet.Add FileName

	Dim ResultValue As Long
	ResultValue = sdkObject.GetFilesStatus(FileStatusInSet, FileStatusOutSet, Cancelled, ResultDescription)

	If ResultValue <> 0 Then
		MsgBox "Failed to get the file status."
		Exit Sub
	End If

	Dim Count As Long
	Count = FileStatusOutSet.GetCount
	Dim Index As Long
	For Index = 0 To Count - 1
		Dim FileStatusOut As New SAWHFileStatusOut
		FileStatusOutSet.Get Index, FileStatusOut
		Dim FileStatus As Enum_ItemStatus
		FileStatus = FileStatusOut.FileStatus
		Dim IsCheckoutByMe As Boolean
		IsCheckoutByMe = FileStatusOut.IsCheckoutByMe
		Dim IsExists As Boolean
		IsExists = FileStatusOut.IsExists
	Next

End Sub