Utilizo esta funcion, pero no me funciona, me dice que no se puede leer del Archivo o Carpeta de origen, porque?
Código Delphi
[-]
function MoverCarpeta(const carpetaOrigen,
carpetaDestion: string) : boolean;
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), #0);
with FileOp do
begin
wFunc := FO_MOVE;
Wnd := GetDesktopWindow;
pTo := PChar(carpetaOrigen);
pFrom := PChar(carpetaDestion+#0#0);
fFlags := FOF_NOCONFIRMATION or
FOF_SILENT or FOF_ALLOWUNDO;
end;
Result := (ShFileOperation(FileOp) = 0);
end;
Y la llamada es
Código Delphi
[-]
procedure TMain.Button1Click(Sender: TObject);
var dir,name,dest,root:string;
begin
root:=ExtractFilePath(Application.ExeName);
dir:=root+'SvrDirectory\';
dest:=root+'SvrHistory\';
name:=ADOQuery1.FieldByName('carpeta').AsString;
if ADOQuery1.RecordCount>0
then begin
if MoverCarpeta(dir+name,dest+name)
then
end;
ADOQuery1.Delete;
ADOQuery1.Close;
ADOQuery1.Open;
end;
end;
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;