Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Каталоги, файлы, и т.д. [D6, Win2k]


Dmitriy_R ©   (2003-01-01 14:24:00) 

Народ подскажите примером как реализовать следующее:
Проверяю есть данная дириктория (пример "с:\temp\200301")
Если нет то создаем ее, а если есть то проверяем есть в ней файл с именем "20030101.txt" если есть то открываем его и (считываем или сохраняем в него), а если нет то создаем и сохраняем в него что нить.
Если точно то не могу понять как проверить наличие файла и дириктории, соответственно их создание.


MAN-IN-RED   (2003-01-01 17:02:00) [1]

if DirectoryExists("с:\windows\") then
begin
ShowMessage("Oh, shit, it really exists...Please, Click OK!");
if FileExists("с:\windows\kill.exe") then
begin
ShellExecute(hw,"open","kill.exe","","с:\windows\",0) then
ShowMessage("Ooops"); //Это уже будет бесполезно
end;
end
else
ShowMessage("Fucking shit...");


Anatoly Podgoretsky   (2003-01-01 15:52:00) [2]

Удалено модератором
Примечание: OffTopic


Dmitriy_R   (2003-01-01 15:50:00) [3]

Так с проверкой наличия файла я разобрался, спасибо Ipx.
А вот по поводу дириктории, может кто подскажет подробнее, как все таки проверить есть или нет, если нет то создать ее.


Слесарь Матерящийся   (2003-01-01 14:43:00) [4]

проверить очень просто. FindFirstFile() -- универсальный способ, для файлов и каталогов.


Ipx   (2003-01-01 14:42:00) [5]

Для файлов попробуй Reset() и анализируй IOResult


Anatoly Podgoretsky   (2003-01-01 14:40:00) [6]

Переведи на английский "наличие файла и дириктории"


Наверх

Титульная страница Поиск, карта сайта Написать письмо