Wie wärs mit delphi?
Sollte gehen mit drivecombobox, filelistbox...
da kannst du dir die bilder raussuchen und sicher auch gleich dann per button in einen gewünschten ordner verschieben
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ,StdCtrls, ExtCtrls, jpeg, FileCtrl;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Bild: TImage;
BtLaden: TButton;
BtSchliessen: TButton;
BtLoeschen: TButton;
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
Pfad: TPanel;
ComboBox1: TComboBox;
procedure BtSchliessenClick(Sender: TObject);
procedure BtLadenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BtLoeschenClick(Sender: TObject);
procedure FileListBox1Change(Sender: TObject);
procedure FileListBox1DblClick(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private //kapselung
{ Private-Deklarationen }
Bildpfad: String;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm} //Compileranweisung
procedure TForm1.BtSchliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.BtLadenClick(Sender: TObject);
begin
bild.Picture.LoadFromFile(Bildpfad);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bildpfad:='';
end;
procedure TForm1.BtLoeschenClick(Sender: TObject);
begin
bild.Picture:=nil;
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
Pfad.Caption := Filelistbox1.FileName;
Bildpfad := Pfad.caption;
end;
procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
bild.Picture.LoadFromFile(Bildpfad);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.Itemindex of
0: filelistbox1.Mask:= '*.jpg';
1: filelistbox1.Mask:= '*.bmp';
end;
end;
end.
das wäre ein code für den Betrachter.
Jetzt musst du nur noch die Buttons für schlecht und gut einfügen und beschreiben