WestusBox
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Возник вопрос, а как переименовать папку если она существует?
Как должно работать:
Если "Папка" существует, то переименовать в "Папка 1", если "Папка 1" тоже существует, то переименовать в "Папка 2" и т.д. |
Нашел то-что подходит, но в этом скрипте проверяются файлы, а нужно целиком всю папку.
[more][Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
Compression=lzma
SolidCompression=yes
Uninstallable=no
[Tasks]
Name: arc; Description: "Create backup"
[Files]
Source: Files\*.*; DestDir: {app}; BeforeInstall: CreateBackup
[Code]
var
Page: TInputDirWizardPage;
ArcDir: String;
procedure CreateBackup();
var
SrcFile, DestFile: string;
begin
if IsTaskSelected('arc') then
begin
// if Not DirExists(ArcDir) then CreateDir(ArcDir);
ForceDirectories(ArcDir); // исправлено
SrcFile:= AddBackslash(ExpandConstant('{app}')) + ExtractFileName(CurrentFileName);
DestFile:= AddBackslash(ArcDir) + ExtractFileName(CurrentFileName);
FileCopy(SrcFile, DestFile, False);
end;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
If (CurPageID = Page.ID) then
ArcDir := Page.Values[0];
Result:= True;
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
If (PageID = Page.ID) and
(Not IsTaskSelected('arc')) then
Result:= True
else Result:= False;
end;
procedure InitializeWizard();
begin
Page:= CreateInputDirPage(wpSelectTasks, 'Select Backup Location',
'Where should backup files be stored?',
'To continue, click Next.' + #10#13#10#13 +
'If you would like to select a different folder, click Browse.',
False, 'Backup');
Page.Add('');
//Page.Values[0] := ExpandConstant('{sd}\Backup');
Page.Values[0] := AddBackslash(ExpandConstant('{sd}\Backup')) +
GetDateTimeString('yyyy/mm/dd hh:nn', '_', '.' ); // исправлено
end; |
Всего записей: 4 | Зарегистр. 26-12-2013 | Отправлено: 20:26 27-12-2013 | Исправлено: WestusBox, 20:31 27-12-2013 |
|
