Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Уделение файла через *.vbs / 4 сообщений из 4, страница 1 из 1
31.08.2007, 16:21
    #34768584
Денис24
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уделение файла через *.vbs
Пишу скрипт
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
31.08.2007, 16:58
    #34768759
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уделение файла через *.vbs
Код: plaintext
objFileSystem.DeleteFile strTempFile
...
Рейтинг: 0 / 0
31.08.2007, 17:01
    #34768773
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уделение файла через *.vbs
попробуй эту строку заменить, а то там расширение .tmp, а не mdb
Код: plaintext
strTempFile = Mid(objFileSystem.GetTempName,  1 ,  8 ) & ".mdb"

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


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