quote:

---

I have my own form with an ImageEnMView that allows them to pick the files they want to import. It works great for anything with a normal file path (c:\users\bob\pictures, G:\DCIM\100EOS7D, etc) and I want to be able to use to browse camera.

---

procedure TForm1.CopySelectedFiles1Click(Sender: TObject);
{Copy Selected Files To Destination Folder. }
begin
  if SysUtils.DirectoryExists(DestinationFolder1.Text) then
  begin    
    ImageEnFolderMView1.FileOperationOptions := [ieioShowProgress, ieioVerboseErrors, ieioRenameOnCollision];
    ImageEnFolderMView1.CopySelectedFilesToFolder(DestinationFolder1.Text);
  end;
end;

procedure TForm1.CameraFolder1Change(Sender: TObject);
{ Open the camera files and display them in ImageEnFolderMView. }
begin
  if SysUtils.DirectoryExists(CameraFolder1.Text) then
  begin
    ImageEnFolderMView1.SetFolderEx(CameraFolder1.Text, iefAllImages, '');
    StatusBar1.Panels[0].Text := 'Camera Folder: ' + CameraFolder1.Text;
  end
  else
  begin
    MessageBox(0, PChar('The folder ' + CameraFolder1.Text +
      ' does not exist.'), 'Warning', MB_ICONWARNING or MB_OK);
  end;
end;

function DesktopFolder: string;
{ Find Desktop folder location. }
var
  ir: Boolean;
  iPath: array [0 .. MAX_PATH] of char;
begin
  ir := ShlObj.ShGetSpecialFolderPath(0, iPath, CSIDL_DESKTOP, False);
  if not ir then
    raise Exception.Create('Could not find Desktop folder location.');
  Result := IncludeTrailingPathDelimiter(iPath);
end;

function BrowseForFolder(AFolder: string): string;
{ Browse For Folder. }
begin
  if SysUtils.DirectoryExists(AFolder) then
    if FileCtrl.SelectDirectory('Select Folder', 'Desktop', AFolder) then
      Result := AFolder;
end;

procedure TForm1.BrowseForCameraFolder1Click(Sender: TObject);
{ Set the camera folder. }
var
  iFolder: string;
  iCameraFolder: string;
begin
  if SysUtils.DirectoryExists(iCameraFolder) then
    iFolder := CameraFolder1.Text
  else
    iFolder := DesktopFolder;
  iCameraFolder := BrowseForFolder(iFolder);
  if SysUtils.DirectoryExists(iCameraFolder) then
  begin
    CameraFolder1.Text := iCameraFolder;
  end;
end;