Необходима именно функция, которая бы создавала файл в папке, адрес которой указан в ячейке, а не на диске С. Скорректируйте пожалуйста, не смог сам склеить два алгоритма.
1. Создать в папке файл temp.txt
1а. Если в папке уже есть файл temp.txt, то начать с пункта 2.
2. В этом файле ввести какой-либо текст и тут же удалить его (только чтобы подтвердить факт редактирования файла)
3. Сохранить изменения.
1. Создать в папке файл temp.txt
1а. Если в папке уже есть файл temp.txt, то начать с пункта 2.
2. В этом файле ввести какой-либо текст и тут же удалить его (только чтобы подтвердить факт редактирования файла)
3. Сохранить изменения.
Код |
---|
Function ChkPATH(sPath$) As Boolean On Error Resume Next GetAttr (sPath) If Err Then Exit Function Dim DirName$ 'начиная отсюда создается папка с рандомным именем, а нужен конкретно файл temp.txt, при чем с предварительной проверкой о его наличии. 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 |