powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Уделение файла через *.vbs
4 сообщений из 4, страница 1 из 1
Уделение файла через *.vbs
    #34768584
Денис24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пишу скрипт
http://]
Dim strTempFile
Dim objFileSystem
dim DBE

Set DBE = CreateObject("DAO.PrivateDBEngine.36")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
BackupBeforeCompactDB=true
CompactingDBPathAndName="c:\web.mdb"
If BackupBeforeCompactDB = True _
Then objFileSystem.CopyFile CompactingDBPathAndName, _
Left(CompactingDBPathAndName, (Len(CompactingDBPathAndName) - 4)) & _
"_Backup" & Right(CompactingDBPathAndName, 4)
strTempFile = objFileSystem.GetTempName
DBE.CompactDatabase CompactingDBPathAndName, strTempFile, dbLangCyrillic
objFileSystem.CopyFile strTempFile, CompactingDBPathAndName, True
Kill strTempFile
Set objFileSystem = Nothing
set dbe=nothing


Спотыкается на Kill strTempFile.Как в VBScript?
...
Рейтинг: 0 / 0
Уделение файла через *.vbs
    #34768759
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
objFileSystem.DeleteFile strTempFile
...
Рейтинг: 0 / 0
Уделение файла через *.vbs
    #34768773
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй эту строку заменить, а то там расширение .tmp, а не mdb
Код: plaintext
strTempFile = Mid(objFileSystem.GetTempName,  1 ,  8 ) & ".mdb"

и в удаление указать полный путь
и команду Kill замени на
Код: plaintext
objFileSystem.DeleteFile "C:\" & strTempFile, True
...
Рейтинг: 0 / 0
Уделение файла через *.vbs
    #34768955
Денис24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Уделение файла через *.vbs
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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