H
horseFree
Unregistered / Unconfirmed
GUEST, unregistred user!
下面的代码错在哪？
procedure TFrm_Main.N3Click(Sender: TObject);
begin
With vclunzip1 do
begin
ZipName := 'A:/backup.zip';
CheckDiskLabels := True;
FilesList.clear;
FilesList.Add('*.*');
DoAll := true;
DestDir := ExtractFilePath(Application.ExeName) + 'DataBackup';
RecreateDirs := False;
RetainAttributes := True;
ReplaceReadOnly := True;
Unzip;
end;
end;
出错提示：不能创建文件XXX.DB.
说明：被覆盖的文件在程序运行时可以被修改或删除。请专家指点迷津
procedure TFrm_Main.N3Click(Sender: TObject);
begin
With vclunzip1 do
begin
ZipName := 'A:/backup.zip';
CheckDiskLabels := True;
FilesList.clear;
FilesList.Add('*.*');
DoAll := true;
DestDir := ExtractFilePath(Application.ExeName) + 'DataBackup';
RecreateDirs := False;
RetainAttributes := True;
ReplaceReadOnly := True;
Unzip;
end;
end;
出错提示：不能创建文件XXX.DB.
说明：被覆盖的文件在程序运行时可以被修改或删除。请专家指点迷津