My code hangs (Error75) if the folder exists. How to go next
Code:
Option Compare Database
Option Explicit
Sub Verifier_Presence_Sous_Dossier()
Dim Pth As String
Dim i As Integer
Dim strSql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim fs As FileSystemObject
Dim mySource As Object
Dim Folder As Variant
Dim fso As Object
Set dbs = CurrentDb
Dim Root1 As String, Root2 As String, Root3 As String
Dim NewName As String
Dim varFldrsRoot1 As Variant
Set dbs = CurrentDb
strSql = "SELECT DEC.Matr, DEC.NomName, DEC.NomNameMatr, DEC.NomNameMatrk, DEC.Languagecode FROM [DEC] WHERE (((DEC.Languagecode)=1) AND ((DEC.[Matr])= 4810));" 'Or (DEC.[Matr])=105185 Or (DEC.[Matr])=5363));"
Set rst = dbs.OpenRecordset(strSql, dbOpenSnapshot, dbFailOnError)
Pth = "F:\Pers\" 'Path to the top folder with trailing slash
Root1 = Pth & rst!NomName
Root2 = Root1 & "\" & "A. Pièces officielles recrutement"
'Root3 = Root1 & "B. Promotions"
If Len(Dir(Root1, vbDirectory)) = 0 Then
MkDir Root1
End If
If Len(Dir(Root2, vbDirectory)) = 0 Then
MkDir Root2
End If
varFldrsRoot1 = Split("1. P1,2. Recueil de travail,3. Autre,4. Contrats,5. Avenants", ",")
For i = 0 To UBound(varFldrsRoot1)
If Len(Dir(Root2 & varFldrsRoot1(i), vbDirectory)) = 0 Then
MkDir Root2 & "\" & varFldrsRoot1(i)
Else
Exit For
End If
Next i
'End If
End Sub