مشكلة ف انشاء المجلدات

[nogom]

السلام عليكم ورحمة الله وركاته

عندي فورم اسمو (ProjectDocuments)

ومسوي حدث عند التحميل

كود ان شاء مجلدات وشغال معي تمام وهذا كود الانشاء بهذا الفورم

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Archiving"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
Else
End If
End If

strFolder = CurrentProject.Path & "\Archiving" & "\" & "" & Me.ViewName & ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
Else
End If
End If

strFolder = CurrentProject.Path & "\Archiving\" & Me.ViewName & "" & "\" & "Projects documents"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
Else
End If
End If


strFolder = CurrentProject.Path & "\Archiving\" & Me.ViewName & "" & "\Projects documents" & "\" & "" & Years & ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
Else
End If
End If

من هذا الفورم ادخل الى فورم اخر اسمو 1-1-1

واريد ان ينشأ مجلد داخل هذه المجلدات

ويصبح المجلد مكانه :

Archiving    +    AMA   + Projects documents   +  2018    + 1-1-1

 

ايش طريقة الكود عشان ينشأ ملف 1-1-1 داخل المجلدات 

[nogom]

للرقع