ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Файлы только для чтения !!!
10 сообщений из 10, страница 1 из 1
Файлы только для чтения !!!
    #32278571
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Как выявить и переатрибутовать
(ну и слово-сам испугался) или проще - удалить файлы в папке, кот. только для чтения? А то "fs.DeleteFolder()" их не берет...
...
Рейтинг: 0 / 0
29.09.2003, 16:50
| Ответить | Цитировать | Написать  
Файлы только для чтения !!!
    #32278596
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Снять атрибут только чтение, например, с помощью API Функции SetFileAttributes

==
А в FSO разве ничего подобного нет?
Attributes As FileAttribute
(если конечно я правильно докадался что fs - это FSO)
...
Рейтинг: 0 / 0
29.09.2003, 17:05
| Ответить | Цитировать | Написать  
Файлы только для чтения !!!
    #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
29.09.2003, 17:14
| Ответить | Цитировать | Написать  
Файлы только для чтения !!!
    #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:30
| Ответить | Цитировать | Написать  
Файлы только для чтения !!!
    #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:39
| Ответить | Цитировать | Написать  
Файлы только для чтения !!!
    #32279076
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
>Senin Viktor
Здорово!!! Вот это ОТВЕТ!!! Я справку-то смотрел, но вот, блин я инглиш - только буквы знаю, а ты ещё туда же такой же ответ. Спасибо...
...
Рейтинг: 0 / 0
30.09.2003, 09:58
| Ответить | Цитировать | Написать  
Файлы только для чтения !!!
    #32279125
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
fs.DeleteFolder "C:\Program Files\Microsoft Office", True


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

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


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