*********************************************************** oDialog=crea("mscomdlg.commondialog.1") oDialog.Flags = 0x80200 oDialog.MaxFileSize = 255 && maybe make this larger? oDialog.Filename = "" oDialog.ShowOpen cFileList = oDialog.Filename nOccurs = occurs(chr(0), cFileList) if nOccurs = 0 dimension aFileList[1] aFileList[1] = cFileList else dimension aFileList[1] cPath = left(cFileList, at(chr(0), cFileList)-1) cFileList = substr(cFileList, at(chr(0), cFileList)+1) cFileList = strtran(cFileList, chr(0), chr(13)) aLines(aFileList, cFileList, .t.) for nCnt = 1 to alen(aFileList) aFileList[nCnt] = cPath + "" + aFileList[nCnt] next endif****************************************************************