| |
|
|
| | Как проверить больше одного файла в какой то папке? | |
| |
| |
| |
|
|
| | do
- проверить на что?
- а почему именно больше одного файла?
- значит один Вы уже проверили?
- а проверили на что?
loop | |
| |
| |
| |
|
|
| | в общем смысл задачи
если в определенной папке один файл картинки то он в элементе (Обозреватель веб-страниц (Microsoft)) будет отображаться как картинка для просмотра.. а если больше одного файла то в этом элементе файлы буду отображатся как файлы (ЭСКИЗ СТРАНИЦ).
КСТАТИ КАК ПЕРЕДТЬ УПРАВЛЕНИЕ Обозреватель веб-страниц (Microsoft) такую команду на отображение файлов как ЭСКИЗ | |
| |
| |
| |
|
|
| | - по первой части можно так:
Dim strName As String
strName = Dir("C:\*.gif")
Do Until Len(strName) = 0
'Счетчик файлов
strName = Dir
Loop
|
- по второму не вкурсе | |
| |
| |
|
|
| |
|
|
| | как эскиз, по аналогии с "проводником", не получится
можно пробегать в цикле файлы в папке, генерировать HTML страницу "превью" и уже ее отображать в контроле формы | |
| |
| |
| |
|
|
| | Ну а ежели нужно обработать несколько типов файлов то можно так:
Dim strName As String, Rassh() As String
strName = Dir("D:\*.*")
Do Until Len(strName) = 0
Rassh = Split(strName, ".")
Select Case Rassh(UBound(Rassh)) 'смотрим расширение файла
Case "gif", "jpg"
'счетчик gif и jpg
Case "wmf"
'счетчик wmf
Case "dwg"
'счетчик dwg
End Select
strName = Dir
Loop
|
| |
| |
| |
| |
|
|
| | А если потом кто то добавит нужно будет перегинирировать?
Тогда надо что бы при открытии сначала генирился HTML?
А как хоть приблизительно выгдяти кодик?
ВООБЩЕ МОЖЕТ ЕСТЬ ГОТОВЫЕ РЕШЕНИЯ ФОТОК (ФОТО ОБЪЕКТА) В ФОРМЕ, КОТОРЫХ МОЖЕТ БЫТЬ МНОГО МОЖЕТ БЫТЬ ОДИН А МОЖЕТ И НЕ БЫТЬ | |
| |
| |
| |
|
|
| | КУ: Тогда надо что бы при открытии сначала генирился HTML?
да, а чего тут особенного?
причем, что любопытно - HTML можно генерировать локально для клиента, выдавая только ссылки на файлы к которым он имеет права доступа...
этакий вот раздельный доступ к общим файлам через одно место :))) | |
| |
| |
