Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Вниз

Папка или файл?   Найти похожие ветки 

 
_ilya   (2003-09-05 13:13) [0]

У меня есть полный путь к файлу, как можно узнать, это папка или обычный файл? Подскажите, plz, буду оооочень признателен.


 
Basic   (2003-09-05 13:17) [1]

задай поиск Findfirst,и проверь атрибуты


 
Sandman25   (2003-09-05 13:20) [2]

DirectoryExists


 
[lamer]Barmaglot   (2003-09-05 13:21) [3]

DirectoryExists?


 
Vovchik_A   (2003-09-05 13:31) [4]

- DirectoryExists - Это проверка на наличие
Проверить нужно по атрибутам
var
sr1 : TSearchRec;
....
repeat
If ( sr1.Attr and faDirectory ) = faDirectory Then
begin
Memo1.Lines.Add("DIR "+sr1.name)
end
....


 
Sandman25   (2003-09-05 13:33) [5]

[4] Vovchik_A © (05.09.03 13:31)

FileExists


 
Vovchik_A   (2003-09-05 13:52) [6]

Я так понял ему надо узнать папка, то, что он находит или файл.
Он это узнает по атрибутам однозначно.


 
Sandman25   (2003-09-05 16:14) [7]

Согласен.


 
Vovchik_A   (2003-09-05 16:42) [8]

2 Sandman25 © (05.09.03 16:14) [7]
Давай, Саш, автора поста дождемся наверное. Пусть вопрос уточнит


 
han_malign   (2003-09-05 17:45) [9]

dw:=GetFileAttributes(Name);
fFile:=dw and FILE_ATTRIBUTE_DIRECTORY = 0;


 
Anatoly Podgoretsky   (2003-09-05 17:52) [10]

Но и через *Exists он узнает одназначно, что лучше дело вкуса, *Exists проще.


 
panov   (2003-09-05 17:56) [11]

Достаточно использовать только DirectoryExists...



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.008 c
1-58692
Alibaba
2003-08-28 03:03
2003.09.18
DragDrop Pro


6-58804
Melcor
2003-07-03 08:41
2003.09.18
Как перехватывать пакеты из сети?


3-58594
3APA3A
2003-08-26 14:17
2003.09.18
Выбрать все записи в таблице


14-58913
Е-Моё имя
2003-08-28 16:00
2003.09.18
злобные вирьмакеры


1-58663
Konsul
2003-09-04 15:31
2003.09.18
Канва на TImage





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