Главная страница
    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.005 c
1-60742
SergeySA
2002-08-07 14:13
2002.08.19
как послать всем окнам сообщение , чтоб перерисовались ?


6-60794
AlexPC
2002-06-04 13:43
2002.08.19
Собственные настройки прокси с авторизацией при доступе в инет


1-60705
Stream2k
2002-07-26 15:10
2002.08.19
Как загружать изобр. в формате gif в TImage ?


6-60791
Valeriy
2002-05-31 22:44
2002.08.19
Проверка почты


1-60600
MikeFW
2002-08-07 11:13
2002.08.19
Как поменять местами узлы,





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский