Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / поиск файла / 4 сообщений из 4, страница 1 из 1
19.09.2006, 00:44
    #33995457
XED
XED
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск файла
подскажите, пжлста, как можно было бы найти файл на диске или, что еще более важно, ЗНАЯ директорию где искать - узнать о его наличии? просто понять существует файл или нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2006, 05:49
    #33995550
FoxFox
FoxFox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск файла
Posmotri na Help

SET PATH TO HOME( )
CLEAR
IF FILE('foxuser.dbf')
WAIT WINDOW 'Visual FoxPro resource file present'
ELSE
WAIT WINDOW 'Visual FoxPro resource file not present'
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2006, 12:35
    #33996415
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск файла
Если точно известно имя файла, то

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL lcDirName, lcFileName, lcFullPathName
lcDirName = "C:\MyFolder"
lcFileName = "MyFile.txt"
lcFullPathName = AddBS(m.lcDirName)+m.lcFileName
IF File(m.lcFullPathName) = .F.
	MessageBox("Нет файла "+m.lcFullPathName)
ELSE
	MessageBox("Есть файл "+m.lcFullPathName)
ENDIF

Если точное имя файла неизвестно, а известна некая "маска" имени, то придется сканировать всю указанную директорию

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
LOCAL lcDirName, laListFile( 1 ), lnCountFiles, lnI, lcFileName
lcDirName = "C:\MyFolder"
lnCountFiles = ADIR(laListFile,AddBS(m.lcDirName)+"*.*")
FOR lnI= 1  TO lnCountFiles
	lcFileName = laListFile[m.lnI, 1 ] && только имя файла большими буквами
	IF (сравнение имени с известной маской)
		* Если нашли, прекращаем цикл
		EXIT
	ENDIF
ENDFOR

IF m.lnI > m.lnCountFiles
	* Если цикл завершился штатно, то значение счетчика цикла
	* будет больше максимально возможного
	* Это значит, что искомого файла нет
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2006, 20:15
    #33998047
XED
XED
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск файла
To ВладимирМ, пасиб большое, очень помогли....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / поиск файла / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1590748]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 249ms
total:  361ms
x
x
Закрыть


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