Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Стереть файлы по маске? / 7 сообщений из 7, страница 1 из 1
06.02.2006, 17:08:13
    #33526539
vallot
vallot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
Если так , то не работает!!!!????
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub cmd_Click()
Dim i, sPath( 1  to  3 ), fs
Set fs = CreateObject("Scripting.FileSystemObject")
sPath( 1 ) = "C:\aaa\bbb\" & "*.xls"
sPath( 2 ) = "C:\aaa\ccc\" & "*.xls"
sPath( 3 ) = "C:\aaa\ddd\Pict\" & "*.bmp"
For i =  1  To  3 
If fs.FileExists(sPath(i)) Then
        Kill (sPath(i))
End If
Next
End Sub
А так работает

Код: plaintext
1.
2.
3.
4.
Private Sub cmd_Click()
Kill "C:\aaa\bbb\" & "*.xls"
Kill "C:\aaa\ccc\" & "*.xls"
Kill "C:\aaa\ddd\Pict\" & "*.bmp"
End Sub
Где я туплю???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2006, 19:34:15
    #33526946
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
Не используй wsh если пишешь на vba. И наоборот. Не стоит смешивать разные технологии без нужды.
А в данном случае - FileExists не работает с масками.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2006, 09:29:16
    #33527533
vallot
vallot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
А что работает? Дайте хотя бы ссылочку, если не трудно, сам уже день ищу!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2006, 09:34:08
    #33527554
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
DeleteFile Method
Deletes a specified file.

object.DeleteFile filespec[, force] 

Arguments 
object

Required. Always the name of a FileSystemObject.

filespec

Required. The name of the file to delete. The filespec can contain wildcard characters in the last path component.

force

Optional. Boolean value that is True if files with the read-only attribute set are to be deleted; False (default) if they are not.

Remarks
An error occurs if no matching files are found. The DeleteFile method stops on the first error it encounters. No attempt is made to roll back or undo any changes that were made before an error occurred.

The following example illustrates use of the DeleteFile method: 

Sub DeleteAFile(filespec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFile(filespec)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2006, 09:55:00
    #33527617
vallot
vallot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
Спасибо, но это я видел.
Но вина моя, что я неправилльно вопрос поставил!
Надо было - "Убить файлы(по маске), если они существуют!"
(Если просто убить, то будет сообщение , что не находит файла, если
его нет. А мне не надо сообщений!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2006, 13:08:05
    #33528443
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
самое простое отключить проверку на ошибку

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub DeleteAFile(filespec)
   ON ERROR RESUME NEXT
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFile(filespec)
   SET FSO = NOTHING
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2006, 15:27:52
    #33528982
vallot
vallot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стереть файлы по маске?
Вот это выражение (
Код: plaintext
ON ERROR RESUME NEXT
) как раз мне и нужно, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Стереть файлы по маске? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 309ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185280]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 203ms
total:  309ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]