
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
31.08.2007, 16:21
|
|||
|---|---|---|---|
Уделение файла через *.vbs |
|||
|
#18+
Пишу скрипт 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? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
31.08.2007, 16:58
|
|||
|---|---|---|---|
Уделение файла через *.vbs |
|||
|
#18+
Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
31.08.2007, 17:01
|
|||
|---|---|---|---|
Уделение файла через *.vbs |
|||
|
#18+
попробуй эту строку заменить, а то там расширение .tmp, а не mdb Код: plaintext и в удаление указать полный путь и команду Kill замени на Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2163470]: |
0ms |
get settings: |
7ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
64ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
55ms |
get tp. blocked users: |
2ms |
| others: | 218ms |
| total: | 390ms |

| 0 / 0 |
