|
|
|
Уделение файла через *.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&gotonew=1&tid=2163470]: |
0ms |
get settings: |
10ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
68ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 395ms |

| 0 / 0 |
