ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление папки из "CurrentProject.Path"
5 сообщений из 5, страница 1 из 1
Удаление папки из "CurrentProject.Path"
    #39699928
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Приветствуй всех!
Составил код удаления папки из директории, где расположен файл БД.
Код: vbnet
1.
2.
3.
4.
5.
Dim fso As Object
Dim Dirr As String
Set fso = CreateObject("Scripting.FileSystemObject")
Dirr = "(CurrentProject.Path &" \ "& [Фамилия] & [Код_лица])"
fso.DeleteFolder Dirr, True


Но что-то не так в синтаксисе. Подсвечивает строку Dirr = ...
Не могу понять что не нравится. Подскажите, пожалуйста!
...
Рейтинг: 0 / 0
08.09.2018, 13:54
| Ответить | Цитировать | Написать  
Удаление папки из "CurrentProject.Path"
    #39699956
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Нет по руками точных примеров синтаксис точно не помню...
Сделано по образцу исполнения sql запроса - но тут немного не так надо...
Dirr надо обьявить не как стринг - а как папку - не помню как точно...Но здесь на форуме точно есть примеры
Возможно в присвоении значения Dirr надо использовать set
...
Рейтинг: 0 / 0
08.09.2018, 16:50
| Ответить | Цитировать | Написать  
Удаление папки из "CurrentProject.Path"
    #39699960
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
А ругается она потому что стринг неправильно построен
Dirr = "(CurrentProject.Path &" \ "& [Фамилия] & [Код_лица])"
оператор конкатенации & стоит внутри кавычек и не воспринимается как собственно оператор
...
Рейтинг: 0 / 0
08.09.2018, 16:53
| Ответить | Цитировать | Написать  
Удаление папки из "CurrentProject.Path"
    #39699966
Аллюр Д.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аллюр Д.
Участник
В этой строке прекрасно всё!
И лишние апострофы и лишние пробелы и (возможно) неправильное обращение к полям таблицы "Фамилия" и "Код_лица"

Выведите в окно отладки полученную строку и убедитесь, что получилось совсем не то, что задумывалось
Код: vbnet
1.
2.
Dirr = (CurrentProject.Path &" \ "& [Фамилия] & [Код_лица])
Debug.Print Dirr


Не знаю, что такое "Фамилия" и "Код_лица", но в имени папки на диске пробелов около слэша наверняка нет
Код: vbnet
1.
2.
Dirr = CurrentProject.Path & "\" & [Фамилия] & [Код_лица]
Debug.Print Dirr
...
Рейтинг: 0 / 0
08.09.2018, 17:48
| Ответить | Цитировать | Написать  
Удаление папки из "CurrentProject.Path"
    #39699969
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Аллюр Д.В этой строке прекрасно всё!
И лишние апострофы и лишние пробелы и (возможно) неправильное обращение к полям таблицы "Фамилия" и "Код_лица"

Выведите в окно отладки полученную строку и убедитесь, что получилось совсем не то, что задумывалось
Код: vbnet
1.
2.
Dirr = (CurrentProject.Path &" \ "& [Фамилия] & [Код_лица])
Debug.Print Dirr


Не знаю, что такое "Фамилия" и "Код_лица", но в имени папки на диске пробелов около слэша наверняка нет
Код: vbnet
1.
2.
Dirr = CurrentProject.Path & "\" & [Фамилия] & [Код_лица]
Debug.Print Dirr


Да, Вы правы! Скобки и апострофы не нужны. А пробелы около слэша ставились автоматически при наличии скобок и апострофов. Теперь код работает, большое спасибо!
...
Рейтинг: 0 / 0
08.09.2018, 18:12
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление папки из "CurrentProject.Path"
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39699960&tid=1611199]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 458ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 347ms
total:  888ms
созд. / загр.: 888ms
x
x
Закрыть


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