Si lo se, pero por ahora no es prioridad la visualización solo el enumerar los archivos que se encuentra en una unidad y darles un numero
On click
function found(filename)
Dialog.Message("Encontrado!!", filename .. " fue encontrado!!\r\nLa búsqueda ha finalizado...");
Label.SetText("RUTA", filename);
return false;
end
StatusDlg.Show();
StatusDlg.SetTitle("Buscando el archivo...");
StatusDlg.ShowCancelButton(true, "Cancelar la busqueda");
File.Find("D:\\", "*.pdf", true, false, nil, found);
StatusDlg.Hide();
--------------------------------------
_Agregar = Label.GetText("NUMERO");
Label.SetText("NUMERO", _Agregar+1);
function Escape (sSourceString)
sSourceString = String.Replace(sSourceString, "'", "''", false);
return sSourceString;
end
sNUMERO = Label.GetText("NUMERO");
sRUTA = Label.GetText("RUTA");
if bNewRecord then
SQLite.Query(db, "insert into cyber values(NULL, '".. sNUMERO.."', '"..sRUTA.."')");
nLastError = Application.GetLastError();
if nLastError ~= SQLite.OK then
Dialog.Message("Error: " .. nLastError, SQLite.GetLastErrorString());
end
end
---------------------------------------
como verán esta en para la búsqueda, como le cambio para que no se detenga en el primer dato que encuentre y prosiga con el siguiente .
------------------------------------------