Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Файлы только для чтения !!! / 10 сообщений из 10, страница 1 из 1
29.09.2003, 16:50
    #32278571
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
Как выявить и переатрибутовать
(ну и слово-сам испугался) или проще - удалить файлы в папке, кот. только для чтения? А то "fs.DeleteFolder()" их не берет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2003, 17:05
    #32278596
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
Снять атрибут только чтение, например, с помощью API Функции SetFileAttributes

==
А в FSO разве ничего подобного нет?
Attributes As FileAttribute
(если конечно я правильно докадался что fs - это FSO)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2003, 17:14
    #32278614
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
Я так понял, что "fs.DeleteFolder()" это FileSystemObject (FSO)?
то
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Function ShowFolderList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject( "Scripting.FileSystemObject" )
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 In fc
      f1.Attributes =  0 
   Next
End Function

где folderspec - путь к папке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 09:30
    #32279061
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
>АлексейЕ
У меня вот такое:
Private Sub Workbook_Open()
n = 1
l2: If n < 5 Then
On Error GoTo Exit_l
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFolder "C:\V21"
n = n + 1
GoTo l2
End If
Exit_l:
Exit Sub
End Sub
т.е. должна папка полностью удаляться, даже если в ней есть файлы "только чтение"
куда же здесь всунуть Вами предложенную процедуру ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 09:39
    #32279069
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
Ты бы справку посмотрел? А?

object.DeleteFolder ( folderspec[, force] );
object
Required. Always the name of a FileSystemObject.
folderspec
Required. The name of the folder to delete. The folderspec can contain wildcard characters in the last path component.
force
Optional. Boolean value that is true if folders with the read-only attribute set are to be deleted; false (default) if they are not.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 09:58
    #32279076
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
>Senin Viktor
Здорово!!! Вот это ОТВЕТ!!! Я справку-то смотрел, но вот, блин я инглиш - только буквы знаю, а ты ещё туда же такой же ответ. Спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 10:37
    #32279125
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
fs.DeleteFolder "C:\Program Files\Microsoft Office", True


==
Это хорошо что англиский не знаешь - а то мучался бы что это за оператор
DeleteFolder у которого один из переводов "Уничтожить прибор для испытания бумаги на излом"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 10:47
    #32279136
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
[b ]>Senin Viktor
Я что -то не понял!?: "fs.DeleteFolder "C:\Program Files\Microsoft Office", True" ...Ты мне предлагаешь ОФИС грохнуть !?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 10:49
    #32279138
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
>Ты мне предлагаешь ОФИС грохнуть !?

Не все так плохо :) - поставши на место офиса переводчик
Если было бы хуже я дал бы тебе пример
fs.DeleteFolder "C:\WINNT", True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 10:57
    #32279148
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы только для чтения !!!
>Senin Viktor
А, действительно - так было бы круче !!!
. Ну, а за подсказку - СПАСИБО (не ожидал, что так просто при добавке "истина") Все работает, урааааа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Файлы только для чтения !!! / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 455ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1679158]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 89ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 252ms
total:  455ms
x
x
Закрыть


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