Option Explicit

Function GetLine
  Const ForReading = 1, ForWriting = 2
  Dim fso, f, m
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:t.txt", ForWriting, True)
  f.Write "Bonjour!" 
  f.Close
  Set f = fso.OpenTextFile("c:t.txt", ForReading)
  m =  f.ReadLine
  GetLine = m
End Function

app.ClearTrace

app.Trace GetLine

Dim Input
Input = InputBox( "Question ?", "Une boîte", "valeur")
app.Trace input

app.Trace "MyAlbum version: " & app.Version
Dim alb, pic
'set alb = app.LoadAlbum("D:\WINDOWS\SDK\MyAlbum\DemoAlbum\Demo2.alb")
set alb = app.GetCurrentAlbum

' List the pictures and select them
dim nbPic, i
nbPic = alb.nbPicture
app.Trace "Pictures in this album: " & nbPic
for i=0 to nbPic-1
    Set pic = alb.GetPicture(i)
    app.trace i & " : " & pic.sShortFileName & " - " & pic.HasKeyword("Landscape")
    if pic.HasKeyword("Landscape") then 
	pic.bSelected = True
	pic.AddKeyWord("Test")
   end if
next

'Force the redraw of the album
alb.ReDraw