SELECT ( YourTableName ) LOCAL lcVideoFile, lcWhereAmINow, lcWhatFilePicked lcWhatFilePicked = "" ************* **** local var to point to the folder I am at now ** to restore later lcWhereAmINow = SYS(2003) *** field used to hold your music selection into local variable lcVideoFile = ALLTRIM( MyMusicFileName ) *!* **************** *!* **** use windows scripting tools to find My documents folder *!* ** then add variable together with MY VIDEOS to point *!* ** automatically to this folder *!* loScripting = CREATEOBJECT('wscript.shell') *!* lcWhereDoIGo = loScripting.SpecialFolders("MyDocuments") *!* lcWhereDoIGo = lcWhereDoIGo + "\My Videos" IF !EMPTY(lcVideoFile) DECLARE INTEGER ShellExecute IN shell32.DLL ; INTEGER hndWin, STRING cAction, STRING cFileName, ; STRING cParams, STRING cDir, INTEGER nShowWin ShellExecute(0,"open",(lcVideoFile),"","",1) ELSE LOCAL IcameFromThisFolder, lcWhereDoIGo, lcVideoFile IcameFromThisFolder = SYS(2003) **************** **** use windows scripting tools to find My documents folder ** then add variable together with MY VIDEOS to point ** automatically to this folder loScripting = CREATEOBJECT('wscript.shell') lcWhereDoIGo = loScripting.SpecialFolders("MyDocuments") lcWhereDoIGo = lcWhereDoIGo + "\My Videos" ****** *** now set the default to the My Videos folder so videos are easier to find SET DEFAULT TO (lcWhereDoIGo) *!* Prompt the user for the media file to open lcVideoFile = GETFILE("*.*|mpg|avi|wmv|mov|wav|mid","Select file to play") DECLARE INTEGER ShellExecute IN shell32.DLL ; INTEGER hndWin, STRING cAction, STRING cFileName, ; STRING cParams, STRING cDir, INTEGER nShowWin ShellExecute(0,"open",(lcVideoFile),"","",1) ENDIF * return to the folder we left before playing video * this comes from variable in main.prg file SET DEFAULT TO &defaultdir