I am writing a Delphi VCL application and I need to iterate the files on my phone and SD card using FindFirst
and FindNext
etc.
The phone is attached using USB and I can see the device and file system using Windows Explorer.
I expected to simply put in the path to the SD Card and use FindFirst
, FindNext
, e.g.:
procedure MyProc;
var
sr: TSearchRec;
begin
if FindFirst('This PC\My Phone Name\SD card\DCIM\Camera\*.jpg', faAnyFile, sr) = 0 then
repeat
Showmessage(sr.name);
//blah
...
until FindNext(sr) <> 0;
FindClose(sr);
end;
Nothing has worked so far with Path not found errors I'm using Delphi 11.1