Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 01.10.2008
Сообщений: 34
1

Ошибка 438 при создании новой папки

23.11.2008, 10:36. Показов 2260. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подскажите как создать новую папку или в чем тут дело?
Я подключаю библиотеку Microsoft Scripting Runtime (...system32scrrun.dll)
Dim objFSO As FileSystemObject
Set objFSO = CreateObject('Scripting.FileSystemObject')
objFSO = objFSO.CreateFolder('c:111')
Создается папка С:111, но при этом выдается ошибка 438 (объект не подднрживает это свойство или метод)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2008, 10:36
Ответы с готовыми решениями:

Ошибка 438 при закрытии объекта excel макросом с word
Привет, Ребята! Есть проблема. Помогите решить, пожалуйста! Есть макрос, который находит...

Ошибка Run-time error '438': Object doesn't support this property or method при транспонировании матрицы
Выдает ошибку Run-time error '438': Object doesn't support this property or method. Private Sub...

ошибка 438
зравствуйте вылетает ошибка 438 обозначил ошибку строкой error Sub RunMacro() Init ...

Сводная таблица - Ошибка '438'
Привет! Я первый раз на каком либо форуме, еще не освоилась как писать. Если что не так простите. Я...

5
lisa
23.11.2008, 11:07 2
У меня работает так:
Visual Basic
1
2
3
Dim fs
Set fs = CreateObject('Scripting.FileSystemObject')
fs.CreateFolder ('c:111')
0 / 0 / 0
Регистрация: 01.10.2008
Сообщений: 34
23.11.2008, 11:34  [ТС] 3
А как сделать следующее тогда: у меня путь создаваемой папки состоит из постоянной Public Const Puti As String = 'С:www ' и Me[Name]. Как нужно писать в fs.CreateFolder (*****)
0
lisa
23.11.2008, 13:01 4
Не поняла, в чем проблема. Так и пишешь:
Visual Basic
1
2
3
4
5
Public puti As String
puti = 'c:www '
Dim fs
Set fs = CreateObject('Scripting.FileSystemObject')
fs.CreateFolder (puti)
Или тебе не это надо? Тогда объяснись понятнее.
0 / 0 / 0
Регистрация: 01.10.2008
Сообщений: 34
23.11.2008, 14:08  [ТС] 5
Путь формируется из постоянной Puti и поля формы Me[Name], т.е.
fs.CreateFolder (puti+Me[Name])
0
1 / 1 / 0
Регистрация: 27.08.2008
Сообщений: 154
24.11.2008, 17:57 6
fs.CreateFolder (puti & Me[Name])
0
24.11.2008, 17:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2008, 17:57
Помогаю со студенческими работами здесь

Error 438 при объединении ячеек
Добрый день! прошу помощи!! пишу такой код objdoc.range(objdoc.tables(n_d * 2 + 2).Cell(n_i + 3,...

Выдает ошибку 438 при работе с Selection
Доброго времени суток! На паре дали задание написать программу, чтобы при выделении ячеек и...

Run-time error 438 при копировании между книгами
Вот прям в двух словах: Set bdbook = Workbooks("BD_" & _ name & ".xlsb") Set conbook =...

Ошибка при создании CommandBar
Необходимо что бы при загрузке книги создавалась панель инструментов с кнопками, использую такой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru