Как узнать имя каталога

← →
b@v © (2009-02-18 14:15) [0]

Вообщем суть такая. Нужно создать каталог, но если каталог с таким именем уже существует, то просто проигнорировать и не создавать, а если такого каталога нету, то создать его. Использую MkDir, т.е.

MkDir(c:\Proba\Zakaz\" + ADODataSet1["Firma"]); , т.е. создаю каталог с именем ADODataSet1["Firma"] (Например - Tovar)

Если нет каталога то и нет проблем, создает, а если есть, то ...... косяк

← →
clickmaker © (2009-02-18 14:18) [1]

DirectoryExists

← →
Palladin © (2009-02-18 14:24) [2]

ForceDirectory

← →
b@v © (2009-02-18 14:24) [3]

> clickmaker ©

Спасибо, действительно, ведь раньше пользовался :-)

← →
Anatoly Podgoretsky © (2009-02-18 14:28) [4]

> b@v (18.02.2009 14:15:00) [0]

CreateDir попробуй.
Имя каталога тебе не надо узнавать, оно тебе известно еще до вызова, не может MkDir работать с неизвестными именами.

← →
Anatoly Podgoretsky © (2009-02-18 14:29) [5]

> b@v (18.02.2009 14:24:03) [3]

Ну и где тут узнавание имени каталога?

← →
Anatoly Podgoretsky © (2009-02-18 14:29) [6]

Удалено модератором

← →
Dennis I. Komarov © (2009-02-19 09:35) [7]

> Anatoly Podgoretsky © (18.02.09 14:29) [6]
> Удалено модератором

Это "самоубийство"? :)

← →
MkDir (2009-02-19 09:49) [8]

{$I-} MkDir(c:\Proba\Zakaz\" + ADODataSet1["Firma"]); {$I+}

← →
Palladin © (2009-02-19 10:59) [9]

И что собственно? Чего сказать то хотел?

← →
Anatoly Podgoretsky © (2009-02-19 15:36) [10]

> Dennis I. Komarov (19.02.2009 9:35:07) [7]

Гад какой то.

← →
Yellow_D (2009-02-19 15:42) [11]

> Гад какой то.

:)

А может просто так вопрос был задан?
Но все же, для него, батеньки :)

procedure TForm1.Button1Click(Sender: TObject); begin if directoryexists("C:\1") then showmessage("Каталог существует") else showmessage("Каталог не существует"); end;

> Как узнать имя каталога

Все неправы, кроме Анатолия. Правильный ответ на заданный вопрос выглядит так:

function GetDirName(Dir: string): string;
begin
Result := Dir;
end;

делай так:
if not directoryexists("c:\Proba\Zakaz\" + ADODataSet1["Firma"]) then MkDir("c:\Proba\Zakaz\" + ADODataSet1["Firma"]);

← →
забылпароль (2009-03-02 10:46) [14]

зачем так сложно?
cmd
C:\Documents and Settings\Администратор>mkdir /?
Создание каталога.

MKDIR [диск:]путь
MD [диск:]путь

Изменение команды MKDIR при включении расширенной обработки команд:

Команда MKDIR создает при необходимости все промежуточные каталоги в пути.
Например, если \a не существует, то:

mkdir \a\b\c\d

приводит к тому же результату, что и:

mkdir \a
chdir \a
mkdir b
chdir b
mkdir c
chdir c
mkdir d

например, мой бэкап бд из шедулера. батник

@echo off
REM ---------------------- Start
set NameFile=*.bak
set NewFolder=%Date%
set SrcFld=d:\BackUp
set DstFld=\\192.168.0.32\Volume_1\backup

REM ------ Try creating folder
mkdir %DstFld%\%NewFolder%

REM ------------- Copy files ..
copy %SrcFld%\%NameFile% %DstFld%\%NewFolder%\%NameFile%
if errorlevel 1 goto exitError

REM -------------- pack files ...
"C:\Program Files\7-Zip\7z.exe" a -tzip %DstFld%\%NewFolder%.zip %DstFld%\%NewFolder%\%NameFile% -mx6
if errorlevel 1 goto exitError

REM -------------- Try erase files and folder
erase /Q %DstFld%\%NewFolder%\%NameFile%
if errorlevel 1 goto exitError

rmdir %DstFld%\%NewFolder%
if errorlevel 1 goto exitError

erase /Q %SrcFld%\%NameFile%
if errorlevel 1 goto exitError

REM -------------- All ok!
Exit /b 0

:exitError
REM -------------- Error!
Exit /b 1

> забылпароль (02.03.09 10:46) [14]

ForceDirectories + F1

> забылпароль (02.03.09 10:46) [14]

Тут Дельфи даже и не пахнет, к чему бы это?

Как узнать имя каталога Найти похожие ветки