Create File

[Staziah2]

Добрый день! Подскажите пожалуйста,что нужно прописать,чтобы можно было создать папку.
Попробую описать. Вот оператор ввел данные(цех,дату,Тип документа,номер заказа и номер документа,выбрал файл с расширением *.tif, нажал на кнопку Копировать,НО...если цех и дата существуют,то копируются,но если нет цеха и даты, выдает соответственно ошибку: "Cannot create file" рисунок_3.jpg
рисунок_4.jpg
).Вот и обращаюсь к вам. Подскажите пожалуйста. Какие функции нужно использовать?

procedure TForm2.Button7Click(Sender: TObject);
var Path1, Path2 : String;
begin
Path1 := Form2.wwDBComboDlg1.Text; 
Path2 := '\\Fs\наряды\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif';
if FileExists(Form2.wwDBComboDlg1.Text) then
CopyFile(Form2.wwDBComboDlg1.Text,Path2);
end;

[Stilet]

В где переход в каталог?
И почему в CopyFile и FileExists не указана переменка Path1?

создать папку.

if ForceDirectories('\\Fs\наряды\'+cex.Text+'\'+data.Text) then каталог готов

[Staziah2]

Сообщение от Stilet

В где переход в каталог?
И почему в CopyFile и FileExists не указана переменка Path1?

if ForceDirectories('\\Fs\наряды\'+cex.Text+'\'+data.Text) then каталог готов

procedure TForm2.Button7Click(Sender: TObject);
var Path1, Path2 : String;
begin
Path1 := Form2.wwDBComboDlg1.Text; 
Path2 := '\\Fs\наряды\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif';
if FileExists(Path1) then
CopyFile(Path1,Path2)
else
begin
if ForceDirectories('\\Fs\наряды\'+cex.Text+'\'+data.text) 
then ShoeMessage('каталог готов')
end;

Правильно поняла вас?

[Stilet]

С точностью да наоборот:

procedure TForm2.Button7Click(Sender: TObject);
var Path1, Path2 : String;
begin
Path1 := Form2.wwDBComboDlg1.Text; 
Path2 := '\\Fs\наряды\'+cex.Text+'\'+data.Text+'\';
if FileExists(Path1) then begin
 if ForceDirectories(Path2) then
  CopyFile(Path1,Path2+cex.Text+'_'+Path1+'_'+Edit2.Text+'.tif)
 else ShowMessage('Ошибка создания каталога');
end else
begin
 ShowMessage('Исходный файл не существует');
end;

[Staziah2]

Сообщение от Stilet

С точностью да наоборот:

procedure TForm2.Button7Click(Sender: TObject);
var Path1, Path2 : String;
begin
Path1 := Form2.wwDBComboDlg1.Text; 
Path2 := '\\Fs\наряды\'+cex.Text+'\'+data.Text+'\';
if FileExists(Path1) then begin
 if ForceDirectories(Path2) then
  CopyFile(Path1,Path2+cex.Text+'_'+Path1+'_'+Edit2.Text+'.tif)
 else ShowMessage('Ошибка создания каталога');
end else
begin
 ShowMessage('Исходный файл не существует');
end;

А так можно:??

procedure TForm2.Button7Click(Sender: TObject);
var Path1, Path2 , Path3: String;
begin
Path1 := Form2.wwDBComboDlg1.Text;
Path2 := '\\Fs\наряды\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif';
Path3 := '\\Fs\наряды\'+cex.Text;
if FileExists(Path3)=false then
begin
  if ForceDirectories(Path3) then
  CopyFile(Path1,Path2);
end;

Перед вашим сообщением,искала что-то,вот не знаю.

[Stilet]

Ну по идее если работает то можно и так )

[Staziah2]

Сообщение от Stilet

Ну по идее если работает то можно и так )

Да,работает, и это благодаря вашим подсказкам Спасибо

[Stilet]

Пожалуйста )