Sub Process_Globals
Dim SMB As SMB
Type MovieInfo(SMBPath As String, Title As String, Year As Int , Cert As String)
Dim MovieList As List
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
' Initialise MovieList and SMB then get files/folders from network share
MovieList.Initialize
SMB.Initialize("SMB")
SMB.SetCredentials("james", "James1234","")
SMB.ListFiles("smb://SERVER/Network Share/Movies/","")
End If
End Sub
Sub SMB_ListCompleted (Url As String, Success As Boolean, SMBFiles() As SMBFile)
If Not(Success) Then
' Failed to retrieve files/folders from network share
Log(LastException)
Else
' Loop through all files/folders
For i = 0 To SMBFiles.Length - 1
' Only interested in folder names
If SMBFiles(i).Directory Then
' Store movie info
Dim Movie As MovieInfo
Dim sTitle As String
Movie.Initialize
Movie.SMBPath = "smb://SERVER/Network Share/Movies/" & SMBFiles(i).Name
' Remove backslash from name for movie title
sTitle = SMBFiles(i).Name
Movie.Title = sTitle.SubString2(0, sTitle.Length-1)
' Extract year and certification from "Movie.nfo" file
Movie.Year = 2000 + i ' #TODO get year
Movie.Cert = "A" & i ' #TODO get certification
' Add info to MovieList
MovieList.Add(Movie)
End If
Next
End If
' Following lines for testing only
Log(MovieList.Get(0))
Dim Movie As MovieInfo
Movie = MovieList.Get(521)
Log(Movie.SMBPath)
Log(Movie.Title)
Log(Movie.Cert)
Log(Movie.Year)
End Sub