Здравствуйте!
По работе мне довольно часто приходится выкладывать файлы в общие папки, к которым администратор индивидуально открывает доступ на чтение и запись (но без права удаления файлов) по запросу. Т.к. папок около 1000 штук, приходится проверять их на факт доступа вручную, это очень долго. Я составил автоматически формирующийся список папок, теперь хочу сделать столбец, где бы можно было проверить статус доступа с помощью функции. Для этого придумал следующий алгоритм:
в указанной папке
1. Создать в папке файл temp.txt
1а. Если в папке уже есть файл temp.txt, то начать с пункта 2.
2. В этом файле ввести какой-либо текст и тут же удалить его (только чтобы подтвердить факт редактирования файла)
3. Сохранить изменения.
Нашел готовое решение, однако там алгоритм устроен таким образом, что создается временная папка с произвольным именем, затем папка удаляется. Этот метод мне не подходит, т.к. я не имею прав на удаление файлов. В итоге папки захламляются кучей временных папок.
Помогите пожалуйста с корректировкой кода, заменив создание папок на создание файла temp.txt:
По работе мне довольно часто приходится выкладывать файлы в общие папки, к которым администратор индивидуально открывает доступ на чтение и запись (но без права удаления файлов) по запросу. Т.к. папок около 1000 штук, приходится проверять их на факт доступа вручную, это очень долго. Я составил автоматически формирующийся список папок, теперь хочу сделать столбец, где бы можно было проверить статус доступа с помощью функции. Для этого придумал следующий алгоритм:
в указанной папке
1. Создать в папке файл temp.txt
1а. Если в папке уже есть файл temp.txt, то начать с пункта 2.
2. В этом файле ввести какой-либо текст и тут же удалить его (только чтобы подтвердить факт редактирования файла)
3. Сохранить изменения.
Нашел готовое решение, однако там алгоритм устроен таким образом, что создается временная папка с произвольным именем, затем папка удаляется. Этот метод мне не подходит, т.к. я не имею прав на удаление файлов. В итоге папки захламляются кучей временных папок.
Помогите пожалуйста с корректировкой кода, заменив создание папок на создание файла temp.txt:
| Код |
|---|
Function ChkPATH(sPath$) As Boolean
On Error Resume Next
GetAttr (sPath)
If Err Then Exit Function
Dim DirName$
Do
Do While Len(DirName) < 10
DirName = DirName & Chr(Asc("abc" + Int(26 * Rnd))
Loop
Loop While Dir(sPath & DirName) <> ""
MkDir sPath & DirName : RmDir sPath & DirName
If Err = 0 Then ChkPATH = True
Err.Clear
End Function |
