Still not working - still getting a blank database
schdDate = LEFT(STRTRAN(DTOC(DATE()), "/", ""), 4)
schdDate = INPUTBOX("Enter Date:", "Enter last four digits on schedule: ", schdDate, 15000)
file_count = ALLTRIM(str(ADIR(myArray, "K:\xxx\newm\mailfile\*"+ALLT(schdDate)+"j.dbf")))...