I got everything working to build a sql db and upload the main folder files to a FTP server but i'm having trouble getting folders and files inside the main folder uploaded. Any help would be appreciated. Thanks
Code:-----get a list of all files in folder tbFiles = File.Find(tworking, "*.*", false, true, nil, nil); if tbFiles ~= nil then max = Table.Count(tbFiles); min = 1; for count = min, max do xname = nil xname = Table.Concat(tbFiles, "", count, count); uname = xname xname = String.SplitPath(xname); xpath = (xname.Folder); xfilename = (xname.Filename); xext = (xname.Extension); xname = xfilename..""..xext; OpenmDatabase() sQuery = "SELECT * FROM File WHERE (mname = '"..xname.."')"; tbResults = ReadFromDB(db, sQuery); ClosemDatabase() result = Table.Concat(tbResults, "", 1, 1); if result == "" then isfolder = Folder.DoesExist(uname); if isfolder then FTP.MakeDir(xname); else StatusDlg.ShowProgressMeter(true); StatusDlg.Show(MB_ICONNONE, false); FTP.Upload(uname, xname, nil); err = Application.GetLastError(); StatusDlg.Hide(); if err ~= FTP.OK then Dialog.Message("Error", "File did not upload correctly.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1); else OpenmDatabase() jdays = System.GetDate(DATE_FMT_JULIAN); mtime = System.GetTime(TIME_FMT_MIL); mdate = jdays..""..mtime; mdate = String.Replace(mdate, ":", "", false); sQuery = "INSERT into File values(NULL, '" .. Q(xname) .. "', '" .. mdate .. "')"; AddRow = WriteToDB(db, sQuery) ClosemDatabase() if AddRow ~= "OK" then Dialog.Message("Error", "There was a error inserting file name in DB.", MB_OK, MB_ICONNONE, MB_DEFBUTTON1); end end end end end end




Reply With Quote