Файл или папка?

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

Форум MMB » Всё о программе Multimedia Builder » ГОТОВЫЕ ОТВЕТЫ ПО MMB » Файл или папка? (Как это проверить)

Файл или папка?

toizy

Дата: Понедельник, 24 Марта 2008, 12:32 | Сообщение # 1

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Интересный способ. Автор ответа - Rush.

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

Жизнь оказалась не такой уж и забавной, как поначалу...