Файл или папка? - Форум MMB

Форум

Написать нам

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

Файл или папка? (Как это проверить)

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

Дата: Понедельник, 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

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

Дата: Вторник, 25 Марта 2008, 05:06 | Сообщение # 2

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

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

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Необходимо только добавить, что если имя заканчивается обратным слэшем, его надо убрать. Например, так:

Code

file$='имя файла или папки'
rightPos=LEN(file$)
checkSlash$=StrGet(file$,rightPos)
If (checkSlash$='\\') Then
file$=StrDel(file$,rightPos,1)
End
....

Файл или папка? (Как это проверить)

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