04-08-13, 05:49 PM
أخواني الأكارم..
لدي الكود التالي لإنشاء مجلد بخصائص محددة
إلا أن سؤالي هو أين وكيف أضع هذا الكود عند تحزيم البرنامج باستخدام Setup Factory حيث أن المجلد لا بد أن يتم إنشاءه عند التثبيت
لدي الكود التالي لإنشاء مجلد بخصائص محددة
كود :
If Not Directory.Exists("Application.StartupPath\My Folder") Then Directory.CreateDirectory("C:\My Folder").Attributes = FileAttributes.Hidden
Try
Dim managementClass As New ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
inParams("Description") = "My Description"
inParams("Name") = "Share Name"
inParams("Path") = "Application.StartupPath\My Folder"
inParams("Type") = &H0
Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Dim UserAccount As String = "Everyone"
Dim FolderInfo As IO.DirectoryInfo = New IO.DirectoryInfo("Application.StartupPath\My Folder")
Dim FolderAcl As New DirectorySecurity
FolderAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.Delete, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Deny))
FolderInfo.SetAccessControl(FolderAcl)إلا أن سؤالي هو أين وكيف أضع هذا الكود عند تحزيم البرنامج باستخدام Setup Factory حيث أن المجلد لا بد أن يتم إنشاءه عند التثبيت
