|
|
|
Уделение файла через *.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:21 |
|
||
|
Уделение файла через *.vbs
|
|||
|---|---|---|---|
|
#18+
Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.08.2007, 16:58 |
|
||
|
Уделение файла через *.vbs
|
|||
|---|---|---|---|
|
#18+
попробуй эту строку заменить, а то там расширение .tmp, а не mdb Код: plaintext и в удаление указать полный путь и команду Kill замени на Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.08.2007, 17:01 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=34768773&tid=2163470]: |
0ms |
get settings: |
12ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
56ms |
get topic data: |
10ms |
get forum data: |
5ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 289ms |
| total: | 441ms |

| 0 / 0 |
