Идентификация папки

Страница 1 из 1 1
Модератор форума: as-master

Идентификация папки

basme

Дата: Воскресенье, 23 Марта 2008, 13:19 | Сообщение # 1

MMB Club

Группа: Проверенные

Сообщений: 358

Репутация: 5

Награды: 2

Статус: Offline

Тип файла можно определить с помощью ExtractExt(). А вот если у меня имеется путь к файлу без расширения - и путь к папке, как можно определить - что папка, а что файл?

Rush

Дата: Воскресенье, 23 Марта 2008, 16:08 | Сообщение # 2

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Когда-то задавался этим вопросом. Блин, оказывается у меня много чего в голове, не исследованное другими... smile

Я-то думал, что этот вопрос давно решили.

Code

file$='имя файла или папки'
Exist$=file$
FileExist("Exist$","FileCheck")
Exist$=file$+'\*'
FileExist("Exist$","FolderCheck")
Exist=FolderCheck + FileCheck
If (Exist=0) Then
   Message("Маршрут не существует","")
End
If (Exist=1) Then
   Message("Это файл","")
End
If (Exist=2) Then
   Message("Это папка","")
End

Да, если в конце переменной file$ стоит слэш, то его надо убрать. Иначе работать будет неправильно. Ну, проверку на то, есть ли в конце определенный символ, все знают и умеют.

basme

Дата: Понедельник, 24 Марта 2008, 11:43 | Сообщение # 3

MMB Club

Группа: Проверенные

Сообщений: 358

Репутация: 5

Награды: 2

Статус: Offline

Оригинально! Тенькс!

Идентификация папки

Страница 1 из 1
1