// Script function: Display all files (not only dm files), and sub-folders and shortcuts as tags in a tag browser


// Unless named starting with GlobalSino, EM, My, Self, the function commands are defined 
//by Gatan DM, please see at link: http://www.globalsino.com/EM/page2597.html




string EMFolder 
if ( !GetDirectoryDialog( "Please select a folder", "", EMfolder ) )
Exit(0)

TagGroup EMFileAndShortcutList = GetFilesInDirectory( EMFolder, 1 )
TagGroup GlobalSinoFolderList = GetFilesInDirectory( EMFolder, 2 )

EMFileAndShortcutList.TagGroupOpenBrowserWindow( "Files and shortcuts in the folder", 0 )
GlobalSinoFolderList.TagGroupOpenBrowserWindow( "Sub-folders in the folder", 0 )
