| Вопрос: как убрать сообщение "PATH NOT FOUND" | Добавлено: 29.01.07 10:51 |
Автор вопроса:  Almakedo
|
|
Всем привет. Код пишу в шаблоне normal.dot в MSWordю При попытке повторного выполенения команды
Set NewFso = CreateObject Scripting.FilesystemObject") NewFso.deletefolder ("\\10.0.5.1\test") Выдается сообщение "Path not found", т.к. папки больше не существует. Вопрос: как избежать данного сообщения? P.S.: свойства приведенные ниже не действуют на сообщение об отсутствии пути ((( Application.DisplayAlerts = wdAlertsNone Application.DisplayAlerts = wdAlertsMessageBox |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Almakedo Вопросов: 7 Ответов: 11 |
Профиль | | #1 | Добавлено: 29.01.07 13:11 |
|
Пока ждал ответ, сам все сделал. Вот код, на проверку существования папки:
Dim NewFso As New Scripting.FileSystemObject, oFolder As Folder
If Not NewFso.FolderExists("\\10.0.5.1\test"  Then
Exit Sub Else Set oFolder = NewFso.GetFolder("\\10.0.5.1\test"
Set NewFso = CreateObject("Scripting.FilesystemObject"
NewFso.deletefolder ("\\10.0.5.1\îáùàÿ ïàïêà\QIP\test"
End If |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 30.01.07 00:49 |
on error resume next 
|
||
Страница: 1 |