Поиск:

Ответ в темуСоздание новой темы Создание опроса
> mkdir, каталог то бишь 
:(
    Опции темы
larabelle
Дата 20.5.2007, 01:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: нет
Всего: 2



Всем здрасте.
имею вопрос - 
на форме клиент вводит слово в TEXTBOX
и теперь нуно создать каталог, который будет так и называться.

что-то типа: 

local cDirName as string
cDirName = thisform.text1.value
mkdir C:\.....иии и дальше не знаю, не понимаю, не умею 
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
Tritiy
Дата 21.5.2007, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.5.2007

Репутация: нет
Всего: нет



Попробуй использовать макроподстановку:

local cDirName as string
cDirName = thisform.text1.value
mkdir &cDirName
PM MAIL   Вверх
Cashey
Дата 23.5.2007, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60



сначало надо перейти в нужную дерикторию командой SET DEFAULT TO


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
LNS
Дата 25.5.2007, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 26.12.2006

Репутация: нет
Всего: нет



IF !DIRECTORY(cDirName)  && проверяешь, а вдруг такая папка уже есть
    MD (cDirName)       && создаешь папку, если ее нет
ENDIF

// Если нужно перейти в созданную папку, сначала нужно запомнить текущую
defdir=SYS(5)+SYS(2003)
// перейти
CD (cDirName)  
// .... сделать там чего надо    
//  и вернуться, где были
SET DEFAULT TO &defdir

PM MAIL   Вверх
larabelle
Дата 28.5.2007, 04:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: нет
Всего: 2



Huh, с этими майскими днями  smile - никак к компу было не выбраться.
Всем спасибо за участие. Код выполнила (не самостоятельно правда), в принципе своем он где-то аналогичен коду LNS,
Код

#DEFINE ROOT_DIR "D:\DB" 
LOCAL NEW_DIR as String
NEW_DIR = thisform.text1.Value 
IF DIRECTORY(ROOT_DIR) 
SET DEFAULT TO (ROOT_DIR) 
LOCAL lcNewFolder as String 
lcNewFolder = ADDBS(ROOT_DIR) + NEW_DIR 
IF !DIRECTORY(lcNewFolder) 
MKDIR (NEW_DIR) 
IF !DIRECTORY(lcNewFolder) 
MESSAGEBOX("Can not create directory: " + lcNewFolder, 16, _SCREEN.Caption) 
ENDIF 
ELSE 
MESSAGEBOX("Directory: '" + lcNewFolder + "' exists.", 64, _SCREEN.Caption) 
ENDIF 
ELSE 
MESSAGEBOX("Not found: '" + ROOT_DIR + "'", 16, _SCREEN.Caption) 
ENDIF

ммм... но проблема моя опять в тупике. Дело в том, что дальше мне надо в этот созданный каталог скопировать другую директорию (с вложенными поддиректориями).
раньше использовала команду: 
Код

!xcopy Директория1 Директория2 /ES

а теперь не получается т.к. название 2й директории заранее не известно (ее задает пользователь) smile 

--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
Cashey
Дата 30.5.2007, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60



используй макроподстановку
Код

copy Директория1 &Директория2 /ES



--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
larabelle
Дата 31.5.2007, 03:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: нет
Всего: 2



Цитата(Cashey @ 30.5.2007,  21:26)
используй макроподстановку
Код

copy Директория1 &Директория2 /ES

Виват !  smile 
действительно ... макроподстановка. О ней еще Tritiy сказал - а я не поняла суть. (последние дни коды на разных языках смотрела и подумала, что char '&' - это знак комментария  smile )
а сейчас,  после поста Cashey - как-то подумалось , что если мне двое про эти макроподстановки - то что-то тут не так.
В общем всем респект.  smile  
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!



Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.