' ------------------------------------------------------------------------------------
'					TestGetFilename.vbs
' Just a demo of the use of the GetFilename method.
' ------------------------------------------------------------------------------------

app.ClearTrace

app.trace "Selected file = " & app.GetFilename( "Select the file", 0, "", "Album file (*.alb)|*.alb|All files (*.*)|*.*||", 0 )

app.trace "Selected file = " & app.GetFilename( "Save in file", 1, "Test.txt", "Text file (*.txt)|*.txt|All files (*.*)|*.*||", 0 )

app.trace "Selected folder = " & app.GetFilename( "Select the folder", 2, "c:\Program Files", "", 0 )