|
Вопрос # 814/ вопрос открыт / |
|
Как узнать - существует ли фаил (например тхт) и если нет то создать его?Помогите - очень нужно!
 |
Вопрос задал: Аксион (статус: 4-ый класс)
Вопрос отправлен: 1 августа 2007, 13:09
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Иусов Сергей Ник.
Здравствуйте, Матвеев Мефодий Олегович!
var
aFile:TextFile;
begin
assignfile(aFile,\'C:\SomeText.txt\');
if FileExists(\'C:\SomeText.txt\') then
//Есть - просто открыть
Reset(aFile)
else
//Нету - создать
ReWrite(aFile);
//
// Some code
//
CloseFile(aFile);
end;
 |
Ответ отправил: Иусов Сергей Ник. (статус: 3-ий класс)
Время отправки: 1 августа 2007, 13:50
Оценка за ответ: 5
|
Ответ #2. Отвечает эксперт: Дима Гусаков
Здравствуйте, Матвеев Мефодий Олегович!
//поиск файла на локальном диске
function IsOnLocalDrive(aFileName: string): Boolean;
var
aDrive: string;
begin
aDrive := ExtractFileDrive(aFileName);
if (GetDriveType(PChar(aDrive)) = DRIVE_REMOVABLE) or
(GetDriveType(PChar(aDrive)) = DRIVE_FIXED) then
Result := True
else
Result := False;
end;
// пример
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if IsOnLocalDrive(OpenDialog1.FileName) then
ShowMessage(OpenDialog1.FileName + \' нет найден\');
end;
 |
Ответ отправил: Дима Гусаков (статус: 2-ой класс)
Время отправки: 1 августа 2007, 19:45
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 2 августа 2007, 10:44; участников в обсуждении: 1.
|
|
Аксион (статус: 4-ый класс), 2 августа 2007, 10:44 [#1]:
Дима Гусаков - этот метод не работает пишу if IsOnLocalDrive(ExtractFilePath(ExtractFilePath(Application.ExeName))+\'WFS\lTD.TXT\') then
else showmessage(\'Нету\');
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
| 
