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

Function IsFolderRO(fPath As String) As String
Dim FSO As Object
 
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
IsFolderRO = IIf(FSO.GetFolder(fPath).Attributes And 1, "Read Only", "Read/Write")
If Err <> 0 Then IsFolderRO = "Путь неверный"
On Error GoTo 0
End Function

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

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