Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определить наличие папки / 6 сообщений из 6, страница 1 из 1
18.01.2005, 10:00
    #32869266
vega
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить наличие папки
Как определить существует уже такой каталог или нет
Я делаю так

if !file('tempory\nul')

но кое-где эта проверка не срабатывает, считая, что такого файла не существеут и когда я выполняется команда

md tempory

генерируется ошибка, что такой каталог уже существует
Подскажите как сделать иначе такую проверку
...
Рейтинг: 0 / 0
18.01.2005, 10:45
    #32869400
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить наличие папки
См. DIRECTORY()
...
Рейтинг: 0 / 0
18.01.2005, 10:46
    #32869407
Т_Ф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить наличие папки
numdir = ADIR(ardir, 'Имя каталога', 'D')
IF (numdir < 1) && Если каталога нет, то создать
MD 'C:\UVD'
ENDIF
...
Рейтинг: 0 / 0
18.01.2005, 13:01
    #32869893
Андрей К
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить наличие папки
*----------------------------------------
* Проверка наличия каталога
*
Function testdir
Lparameter dr
Local cdd, rt
Declare short SetCurrentDirectory IN kernel32.DLL STRING d
Declare INTEGER GetLastError IN kernel32.DLL
Declare INTEGER SetErrorMode IN kernel32.DLL INTEGER d
d=0x1
=SetErrorMode(d)
cdd=SYS(5)+SYS(2003)
rt=SetCurrentDirectory(dr)
Cd (cdd)
If rt=0
Return .F.
Else
Return .T.
Endif
Endfunc
...
Рейтинг: 0 / 0
18.01.2005, 13:47
    #32870072
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить наличие папки
2 Андрей К

Так DIRECTORY() делает то же самое.
...
Рейтинг: 0 / 0
20.01.2005, 01:21
    #32873514
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить наличие папки
Hi vega!

> Я делаю так
> if !file('tempory\nul')

Блин, с каких-же замшелых времён передаётся этот неправильный способ (не
иначе как по наследству, от деда к внуку) :( Ну нету под WinNT такого
псевдо-файла в каталоге - от того и не фурычит. А как можно "по нормальному"
проверять уже сказали :)

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определить наличие папки / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]