| toizy | Дата: Понедельник, 24 Март 2008, 12:32 | Сообщение # 1 |
Студийная субстанция
Группа: Администраторы
Сообщений: 2291
Репутация: 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
У меня 17 Мбит, а Яндекс - лох
|
| |
| |
| Rush | Дата: Вторник, 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 ....
|
| |
| |