السلام عليكم ورحمة الله وركاته
عندي فورم اسمو (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 داخل المجلدات