ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть все файлы в папке
10 сообщений из 10, страница 1 из 1
Открыть все файлы в папке
    #37838974
chyma
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chyma
Гость
Есть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы. Как открыть по очереди все файлы из всех территорий?
...
Рейтинг: 0 / 0
15.06.2012, 10:02
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839009
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Перебрать рекурсивно каталоги, перебрать в них файлы. Проблема в чем?
...
Рейтинг: 0 / 0
15.06.2012, 10:13
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839030
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: chyma
> Есть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы. Как
> открыть по очереди все файлы из всех территорий?

В Тотал командере нужно встать в папку, которая содержит папки територий, после чего нажать Ctrl+B и по после чего нужно
пройтись по получившемуся списку и открыть каждый файл с последующим закрытием, а то если попробуешь открыть все сразу
можно не дождатся ответа и Reset будет лучшим выходом :)

P.S. Вопрос об абстрактном коне в сферическом вакууме.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
15.06.2012, 10:23
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839035
chyma
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chyma
Гость
Вопрос по VBA Excel. Как будет выглядеть код?
...
Рейтинг: 0 / 0
15.06.2012, 10:24
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839048
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
для начала поиск
...
Рейтинг: 0 / 0
15.06.2012, 10:28
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839065
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: chyma
> Вопрос по VBA Excel. Как будет выглядеть код?

код будет выглядеть как код. А в папках лежат файлы фотошопа? И нужно открыть их? Так это просто!
Для VBA Excel код открытия будет такой:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Declare Function ShellExecute _
 Lib "shell32.dll" _
 Alias "ShellExecuteA" ( _
 ByVal hwnd As Long, _
 ByVal lpOperation As String, _
 ByVal lpFile As String, _
 ByVal lpParameters As String, _
 ByVal lpDirectory As String, _
 ByVal nShowCmd As Long) _
 As Long
....

ShellExecute 0, "open", "Путь к файлу\имя_файла.psd", "", "", 0



Тебе осталось найти путь :)

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
15.06.2012, 10:35
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839091
chyma
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chyma
Гость
Игорь Горбонос,

в папках лежат файлы .xls
Не совсем подходит, потому что в папке С:\отчеты\ находится 10 папок с территориями, в каждой из них по две папки:2011 и 2012. в каждой из них до 12 папок с месяцами. а там уже .xls фалы, с различными названиями.
...
Рейтинг: 0 / 0
15.06.2012, 10:56
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839119
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: chyma
> в папках лежат файлы .xls

Хорошо, т.е. вопрос звучит так:

Есть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы Екселя. Как с
помощью Excel VBA открыть по очереди все файлы из всех территорий?


Теперь встречный вопрос:
А как пробовал делать ты и что не получается?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
15.06.2012, 11:06
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37839127
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
chymaЕсть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы. Как открыть по очереди все файлы из всех территорий?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Set fso = CreateObject("Scripting.FileSystemObject")

Set КорневаяПапка = fso.GetFolder(App.Path)

Set ФайлыВКорневойПапке = КорневаяПапка.Files

For Each ФайлВПапке In ФайлыВКорневойПапке
    MsgBox ФайлВПапке.Name
Next
    
Set ПодПапки = КорневаяПапка.SubFolders

For Each ПодПапка In ПодПапки
    Set ФайлыВПодПапке = ПодПапка.Files
    
    For Each ФайлВПапке In ФайлыВПодПапке
        MsgBox ФайлВПапке.Name
    Next
Next
...
Рейтинг: 0 / 0
15.06.2012, 11:10
| Ответить | Цитировать | Написать  
Открыть все файлы в папке
    #37899159
economistalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
economistalex
Гость
Спасибо! Блин, как все просто, когда так понятно написано! Пошел исправлять "костыли" из ф-ии Dir...
...
Рейтинг: 0 / 0
31.07.2012, 14:44
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть все файлы в папке
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=72&tid=2157550]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 308ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]