Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
If FirstTime Then
SMB1.SetCredentials("pi", "passwd", "")
SMB1.Initialize("SMB1")
End If
End Sub
Sub Activity_Resume
Log("Activity_Resume")
SMB1.ListFiles("smb://RASPBERRYPI/share", "")
End Sub
Sub SMB1_ListCompleted(Url As String, Success As Boolean, Entries() As SMBFile)
Log("ListCompleted")
If Not(Success) Then
Log("ListFiles failed : " & LastException)
Else
For i = 0 To Entries.Length - 1
Log("*****************")
Log(Entries(i).Name)
Log(Entries(i).Directory)
Log(DateTime.Date(Entries(i).LastModified))
Log(Entries(i).Parent)
Log(Entries(i).Size)
Next
End If
End Sub