'### Перевірити наявність шляху папки
'
Public Function PerevirkaPath(ByVal Pth As String) As Boolean
 Dim a As String
 a = Dir(Pth, vbDirectory)
 If a = "" Or a = "." Or a = ".." Then Exit Function
 PerevirkaPath = True
End Function
'Створення папки
Public Function StvorennaPapki(Vhid As String) As Boolean
On Error GoTo er
 StvorennaPapki = True
 MkDir Vhid
Ex:
 Exit Function
er:
 StvorennaPapki = False
 Resume Ex
End Function