Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 177170
09.03.2010, 17:30
35.77 руб.
0 9 1
Компьютеры Программирование
Здравствуйте уважаемые эксперты, подскажите, пожалуйста, в следующем, как в папке по адресу D:\Рабочая папка\ находящиеся файлы с расширением .doc, их имена вывести в MsgBox в столбик.
Спасибо Эндрю

Обсуждение

давно
Megaloman
Модератор
137394
1850
09.03.2010, 18:22
общий
это ответ
Здравствуйте, Ципихович Эндрю.
Код:
MyPath = "H:\Не мои документы\*.doc"

OneFile = Dir(MyPath)
OutString = ""
Do While OneFile <> ""
    OutString = OutString + OneFile + vbCrLf
    OneFile = Dir
Loop

MsgBox OutString
5
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
10.03.2010, 17:50
общий
Megaloman:
Спасибо за ответ, подскажите пожалуйста то же самое, но чтобы в МсгБокс файлы попадали без расширения .doc
Спасибо
давно
Megaloman
Модератор
137394
1850
10.03.2010, 20:19
общий
Ципихович Эндрю:
Вместо OutString = OutString + OneFile + vbCrLf
OutString = OutString + Mid(OneFile, 1, Len(OneFile) - 4) + vbCrLf
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
11.03.2010, 05:38
общий
Megaloman:
Большое спасибо
Неизвестный
11.03.2010, 12:36
общий
Megaloman:

Вместо OutString = OutString + OneFile + vbCrLf
OutString = OutString + Mid(OneFile, 1, Len(OneFile) - 4) + vbCrLf
увы, в этом случае все файлы в МсгБоксе также с расширением кроме последнего файла
давно
Megaloman
Модератор
137394
1850
11.03.2010, 15:28
общий
Ципихович Эндрю:
увы, в этом случае все файлы в МсгБоксе также с расширением кроме последнего файла
-этого не может быть, потому что этого не может быть никогда
Вот полный текст исправленного в соответствии с Вашими пожеланиями кода
Код:
MyPath = "H:\Не мои документы\*.doc"

OneFile = Dir(MyPath)
OutString = ""
Do While OneFile <> ""
'    OutString = OutString + OneFile + vbCrLf
    OutString = OutString + Mid(OneFile, 1, Len(OneFile) - 4) + vbCrLf
    OneFile = Dir
Loop

MsgBox OutString
Оставил строку старого кода, только закоментировал её. еще раз проверил - работает
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
11.03.2010, 16:14
общий
Megaloman:
По ссылке https://rfpro.ru/upload/1807
скачайте пожалуйста файл там доступно со скриншотами указано, что ничего невозможного нет, сегодня у меня под рукой Винрар отсутствует если не корректно дошёл файл выложу завтра
давно
Megaloman
Модератор
137394
1850
11.03.2010, 19:57
общий
Ципихович Эндрю:
Посмотрите Komu4.doc (56.5 кб). Вы не точны в воспроизведении кода.
У меня
' OutString = OutString + OneFile + vbCrLf
То есть строка закомментирована (впереди стоит апостроф ' ) и оставлена только для сравнения с новой строкой
OutString = OutString + Mid(OneFile, 1, Len(OneFile) - 4) + vbCrLf
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
11.03.2010, 20:27
общий
Megaloman:
Всё работает спасибо большое
Форма ответа