| Вопрос: работа с файлом | Добавлено: 08.05.08 16:01 |
Автор вопроса:  KreAtoR
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #16 | Добавлено: 16.05.08 13:01 |
|
Shell "del /f /s /q ""Путь\Папка\*.*""", vbHide
Smith, это не панацея. Выполни этот код с запущенным Каспером с проактивкой. Он буит материться, а юзерам это очень не нравится обычно, и они начинают гнать, мол, я тебе бабло не за маты каспера платил, давай исправляй. |
||
|
Номер ответа: 17 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #17 | Добавлено: 16.05.08 13:02 |
И вообще этот код не скомпилируется даже 
|
||
|
Номер ответа: 18 Автор ответа: KreAtoR Вопросов: 120 Ответов: 438 |
Профиль | | #18 | Добавлено: 16.05.08 13:43 |
| подскажите сразу, как узнать существует ли вообзе папка? | ||
|
Номер ответа: 19 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #19 | Добавлено: 16.05.08 14:50 |
|
KreAtoR
Ну да неправильно, в системе нет ни del.exe, ни del.com, ни del.bat, ни del.cmd, del это команда cmd.exe, сложнейшая логическая ошибка
Shell "cmd /c del /f /s /q ""  :\Documents and Settings\Adamis\Local Settings\Temp\*.*""", vbHide
Палач у меня в VB6 прекрасно компилируется и работает, респект пользователям каспера за терпение
удаляет все файлы из всех подпапок. Удалить все файлы по очереди, а потом RmDir
RmDir "E:\Temp" тоже вызывает ошибку, поэтому удалать нужно ещё и все папки в E:\Temp, когда не ожидание результата необязательно я делаю это так: Shell "cmd /c rd /s /q "" :\Documents and Settings\Adamis\Local Settings\Temp""", vbHide
Shell "cmd /c md "" :\Documents and Settings\Adamis\Local Settings\Temp""", vbHide
P.S. FSO Объектище, не спорю, сам часто пользую |
||
|
Номер ответа: 20 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #20 | Добавлено: 16.05.08 14:57 |
|
Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject" 
MsgBox IIf(FSO.FolderExists("E:\1" , "Существует", "Не существует"
Set FSO = Nothing |
||