Форум
Написать нам
Страница 1 из 11
Модератор форума: as-master 
Форум MMB » Всё о программе Multimedia Builder » ГОТОВЫЕ ОТВЕТЫ ПО MMB » Файл или папка? (Как это проверить)
Файл или папка?
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
....
 
Форум MMB » Всё о программе Multimedia Builder » ГОТОВЫЕ ОТВЕТЫ ПО MMB » Файл или папка? (Как это проверить)
Страница 1 из 11
Поиск: