وب سايت رسمي شركت راهكار نوين

'In general section
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
Private Sub Command1_Click()
    Dim Security As SECURITY_ATTRIBUTES
    'Create a directory
    Ret& = CreateDirectory("C:\Directory", Security)
    'If CreateDirectory returns 0, the function has failed
    If Ret& = 0 Then MsgBox "Error : Couldn't create directory !", vbCritical + vbOKOnly
End Sub

نام تابع: CreateDirectoryEx

اعلان: Declare Function CreateDirectoryEx Lib "kernel32.dll" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

سيستم عامل: NT , 2000 , 98 , 95

توضيحات: يك دايركتوري جديد در ديسك ايجاد ميكند ، در صورت پشتيباني سيستم عامل ميتوانيد اتريبيوت Attribute خاص براي آن تعريف كنيد. دايركتوري جديد ايجاد شده بيشتر خواص(Attribute) خود را از يك دايتوري ديگر كه در تابع ذكر شده ميگيرد.

مقدار بازگشتي: اگر تابع با اشكال مواجه شود مقدار صفر(براي تعيين نوع خطا از تابع GetLastError استفاده شود)واگر تابع موفق باشد مقدار غير صفر برميگرداند.

پارامترها: lpTemplateDirectory نام دايركتوري كه بعنوان الگوي براي خواص دايركتوري جديد استفاده ميشود. lpNewDirectory نام دايركتوري كه بايد ايجاد شود lpSecurityAttributes در ويندوز 2000 و NT اين مقدار نوع اتريبيوت دايركتوري را مشخص ميكند و براي 98و95وCE بدون استفاده است.

ثابتهاي مورد استفاده: ---

کتابخانه: Kernel32

توابع مرتبط: CreateDirectory, RemoveDirectory ,

نکات: ---

کد نمونه:

Private Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As Any) As Long Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long Private Sub Form_Load() CreateDirectoryEx "C:\Windows", "C:\KPD-Team", ByVal 0& 'remove the directory RemoveDirectory "C:\KPD-Team" End Sub

کلیه حقوق مادی و معنوی نزد وب سایت وب سايت رسمي شركت راهكار نوين محفوظ میباشد. ساخته شده توسط جوملا و ترجمه شده توسط تیم جومفا