Скрипт для создания каталога (папки) в корне диска С:

Скрипт для создания каталога (папки) в корне диска С:

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 257 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    Uses crt;
    Var Korin,Nazva_kataloga,Adres,a: string;
    label 1;
    Begin
    1: Korin:='c:\';
    Clrscr;
    writeln('Введите имя католога');
    writeln;
    readln(Nazva_kataloga);
    Adres:= Korin + Nazva_kataloga;
    Mkdir(Adres);
    Clrscr;
    writeln('В корне диска С создан каталог ',Nazva_kataloga);
    writeln;
    writeln('Для создания ещё каталога - нажмите клавишу в англ.раскладке "y"');
    writeln;
    writeln('Для выхода нажмите любую другую клавишу');
    writeln;
    readln(a);
    if a = 'y' then goto 1
    end.
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.