Заморочка такая- допустим есть VBS скрипт (упрощенный пример):

On Error Resume Next

Set FileSystemObject = CreateObject("scripting.filesystemobject")

FileSystemObject.DeleteFolder "g:\FOLDER1\*" , true



Смысл понятен- удаляет на диске G в папке FOLDER1 все вложенные папки.

Проблема в том, что при отказе в доступе к какой-либо папке в директории процесс останавливается и папки названия которых по алфавиту идут после "проблемной" не удаляются.
Как решить вопрос?

| Сообщение посчитали полезным:

Расскажи публике, зачем при использовании скрипта в ворде или экселе тебе надо удалять множество папок? Смахивает на очередной макровирус

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

Вообще-то нужно для реализации функции самоочистки в субдир-х. Причем тут Ворд и Эксэль? Откуда ты вообще их взял?

| Сообщение посчитали полезным:

Потому как VBScript юзается в этих редакторах.
Попробуй поставить не Next а метку, которая после отработки перейдёт к след записи. А потом goto и метку перед самой функцией удаления.

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

Или VBA

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

Вот процедура, которая удоляет без всяких ФСО...
Private Sub ClearDirectory(psDirName)
Dim sSubDir

If Len(psDirName) > 0 Then

If Right(psDirName, 1) <> "\" Then
psDirName = psDirName & "\"
End If
On Error Resume Next
Kill psDirName & "*.*"

DoEvents

sSubDir = Dir(psDirName, vbDirectory)

Do While Len(sSubDir) > 0
If sSubDir <> "." And _
sSubDir <> ".." Then
If (GetAttr(psDirName & sSubDir) And _
vbDirectory) = vbDirectory Then
ClearDirectory psDirName & _
sSubDir & "\"
RmDir psDirName & sSubDir

DoEvents
sSubDir = Dir(psDirName, vbDirectory)
Else
Kill psDirName & sSubDir
sSubDir = Dir
End If

Else
sSubDir = Dir
End If
Loop
End If

End Sub

| Сообщение посчитали полезным:

Rascal пишет:
Потому как VBScript юзается в этих редакторах
...в смысле?
Писать код удобней ИМХО в VBS отладчике , или ты другое имел в виду?

d1v0x пишет:
Вот процедура, которая удоляет без всяких ФСО...

Ну не то что бы ФСО меня напрягали... я за простоту, т.к. эта процедура лишь незначительная часть большого VBS скрипта.

Идеальным выходом было бы For Each Folder In применяемый для спец папок, но для обычных он не пашет...

| Сообщение посчитали полезным:

Забыл сказать - скрипт, ко всему прочему, не удаляет папки с русскими названиями.

| Сообщение посчитали полезным:

VOLKOFF пишет:
Смысл понятен- удаляет на диске G в папке FOLDER1 все вложенные папки.

Используй вот такой вызов:

Call DelSubFoldersKrasivo("g:\FOLDER1")

Sub DelSubFoldersKrasivo (FolderPath)
Dim curF,subF
Set curF = FileSystemObject.GetFolder(FolderPath)
For Each subF In curF.SubFolders
On Error Resume Next
subF.Delete True
If Err Then
Err.Clear
DelSubFoldersKrasivo(subF.Path)
End If
Next
End Sub

| Сообщение посчитали полезным:

А ведь действительно Krasivo! То что надо!...как сам не догадался?!...

| Сообщение посчитали полезным:

VOLKOFF пишет:
Rascal пишет:
Потому как VBScript юзается в этих редакторах
...в смысле?
MS Word и Ёxel поддорживают внутренний язык программирования (VBS какраз) - можешь создать программу прям в Ворде или Ёкселе.

P.S.: Сорю, за флуд

| Сообщение посчитали полезным:

Shidla пишет:
MS Word и Ёxel поддорживают внутренний язык программирования (VBS какраз)

Не могу больше эту ерунду читать на страницах столь уважаемого мною форума . В приложениях MSOffice встроен VBA, а не VBScript, что совсем не одно и то же, хотя и используют они почти аналогичный синтаксис.

PS VBA = Visual Basic for Application; VBScript = Visual Basic Scripting Edition

Rascal пишет:
Попробуй поставить не Next а метку, которая после отработки перейдёт к след записи. А потом goto и метку перед самой функцией удаления.
VBScript не поддерживает меток и оператора Goto (кроме On Error Goto 0) и это одно из самых существенных его отличий от VBA.

| Сообщение посчитали полезным:

alexas

Комменты излишни. Все всё прочитали и сделали выводы

Тема закрыта.

| Сообщение посчитали полезным: