You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.1 KiB
43 lines
1.1 KiB
Module DivFnk
|
|
|
|
Public Function FolderExist(ByVal dn As String) As Boolean
|
|
Try
|
|
If System.IO.Directory.Exists(dn) Then FolderExist = True Else FolderExist = False
|
|
Catch
|
|
FolderExist = False
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Create_Folders(ByVal s As String) As Boolean
|
|
Dim xt(10) As String
|
|
Dim xti As Integer
|
|
Dim po As Integer
|
|
Dim x As String = ""
|
|
Dim xti1 As Integer
|
|
po = InStr(s, "\")
|
|
xti = 0
|
|
While po <> 0
|
|
xt(xti) = Left(s, po - 1)
|
|
xti = xti + 1
|
|
s = Right(s, Len(s) - (po))
|
|
po = InStr(s, "\")
|
|
End While
|
|
xt(xti) = s
|
|
For xti1 = 0 To xti
|
|
If x <> "" Then x = x & "\"
|
|
x = x & xt(xti1)
|
|
If Not FolderExist(x) Then Create_Folder(x)
|
|
Next
|
|
Create_Folders = True
|
|
End Function
|
|
|
|
Public Function Create_Folder(ByVal dn As String) As Boolean
|
|
Try
|
|
System.IO.Directory.CreateDirectory(dn)
|
|
Catch
|
|
Create_Folder = False
|
|
End Try
|
|
End Function
|
|
|
|
End Module
|