Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

Как можно програмно создать кучу директорий   Найти похожие ветки 

 
Дмитрий Шумов   (2002-08-08 12:57) [0]

Как можно програмно создать кучу директорий типа:
E:\users\Shumov
E:\users\Pavlova
E:\users\Elamina
E:\users\Frolov
E:\users\Korolev
E:\users\Rudik
E:\users\Frolova
если учесть что директорий более 30? Если можно подкинте примерчик.
Пробовал так:

procedure TForm1.Button1Click(Sender: TObject);

var
Dir: string;
begin
Dir := "C:\APPS\SALES\LOCAL";
ForceDirectories(Dir);
if DirectoryExists(Dir) then
Label1.Caption := Dir + " was created"
end

не получается.


 
lenin   (2002-08-08 13:05) [1]

А чем не подходит твой вариант. У меня все нормально создалось.


 
Дмитрий Шумов   (2002-08-08 13:09) [2]

Да, одну она создает, но махом штук 30 ни как не хочет.


 
Skier   (2002-08-08 13:11) [3]

>Дмитрий Шумов

Если махом - то может стоит цикл использовать а
все названия директорий запихнуть в массив ?


 
Song   (2002-08-08 13:15) [4]

30 штук одинаковых в смысле? ;-)


 
Anatoly Podgoretsky   (2002-08-08 13:18) [5]

lenin © (08.08.02 13:05)
Тем что создает одну и при том с другим именем


 
Дмитрий Шумов   (2002-08-08 13:40) [6]

>Skier
Простите за ламерский вопрос, но примерчик можно?


 
Skier   (2002-08-08 13:48) [7]

>Дмитрий Шумов

Лови :


procedure TForm1.Button2Click(Sender: TObject);
const
USER_COUNT = 6;
type
TDirsToCreate = array[0..USER_COUNT] of String;
const
ADirsToCreate : TDirsToCreate = (
"E:\users\Shumov",
"E:\users\Pavlova",
"E:\users\Elamina",
"E:\users\Frolov",
"E:\users\Korolev",
"E:\users\Rudik",
"E:\users\Frolova"
);
var
ii : Integer;
begin
for ii := Low(ADirsToCreate) to High(ADirsToCreate) do begin
ForceDirectories(ADirsToCreate[ii]);
if DirectoryExists(ADirsToCreate[ii]) then
Label1.Caption := ADirsToCreate[ii] + " - has been created..."
end; //for
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
1-60670
anod
2002-08-06 01:09
2002.08.19
Как удалить


7-60877
Sergey Geraschenko
2002-06-05 20:14
2002.08.19
программа работающая только под win98/me


1-60651
Сергей Б.
2002-08-07 13:59
2002.08.19
Ловля


1-60612
Yuri Btr
2002-08-08 11:16
2002.08.19
Это что глюк ?


1-60749
TAN_K
2002-08-07 13:36
2002.08.19
Работа с ComboBox - чайник - 1 программа в Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский