سفارش تبلیغ
صبا ویژن
.
کسى از شما نگوید خدایا از فتنه به تو پناه مى‏برم چه هیچ کس نیست جز که در فتنه‏اى است ، لیکن آن که پناه خواهد از فتنه‏هاى گمراه کننده پناهد که خداى سبحان فرماید : « بدانید که مال و فرزندان شما فتنه است » ، و معنى آن این است که خدا آنان را به مالها و فرزندان مى‏آزماید تا ناخشنود از روزى وى ، و خشنود از آنرا آشکار نماید ، و هر چند خدا داناتر از آنهاست بدانها ، لیکن براى آنکه کارهایى که مستحق ثواب است از آنچه مستحق عقاب است پدید آید ، چه بعضى پسران را دوست دارند و دختران را ناپسند مى‏شمارند ، و بعضى افزایش مال را پسندند و از کاهش آن ناخرسندند . [ و این از تفسیرهاى شگفت است که از او شنیده شده . ] [نهج البلاغه]
امروز: جمعه 103 فروردین 10



Online backup storage and collaboration

پنج گیگ فضای رایگان+ یک گیگ لیچ رایگان

این تابع کارش حذف فولدر با تمام محتویاتش هست که در واقع کار دستور deltree رو انجام میده:

 

Function DelTree(ByVal strDir As String) As Long
Dim x As Long
Dim intAttr As Integer
Dim strAllDirs As String
Dim strFile As String
DelTree = -1
On Error Resume Next
strDir = Trim$(strDir)
If Len(strDir) = 0 Then Exit Function
If Right$(strDir, 1) = "\" Then strDir = Left$(strDir, Len(strDir) - 1)
If InStr(strDir, "\") = 0 Then Exit Function
intAttr = GetAttr(strDir)
If (intAttr And vbDirectory) = 0 Then Exit Function
strFile = Dir$(strDir & "\*.*", vbSystem Or vbDirectory Or vbHidden)
Do While Len(strFile)
If strFile <> "." And strFile <> ".." Then
  intAttr = GetAttr(strDir & "\" & strFile)
  If (intAttr And vbDirectory) Then
   strAllDirs = strAllDirs & strFile & Chr$(0)
  Else
   If intAttr <> vbNormal Then
    SetAttr strDir & "\" & strFile, vbNormal
    If Err Then DelTree = Err: Exit Function
   End If
   Kill strDir & "\" & strFile
   If Err Then DelTree = Err: Exit Function
  End If
End If
strFile = Dir$
Loop
Do While Len(strAllDirs)
x = InStr(strAllDirs, Chr$(0))
strFile = Left$(strAllDirs, x - 1)
strAllDirs = Mid$(strAllDirs, x + 1)
x = DelTree(strDir & "\" & strFile)
If x Then DelTree = x: Exit Function
Loop
RmDir strDir
If Err Then
DelTree = Err
Else
DelTree = 0
End If
End Function



  • کلمات کلیدی : deltree in vb6
  • نوشته شده توسط مهدی در چهارشنبه 88/8/27 و ساعت 1:47 عصر | نظرات دیگران()
    لیست کل یادداشت های این وبلاگ
    Nod32 SN Finder v1.6
    تهیه نسخه بکاپ از دیتابیس نود 32 و بازگردانی
    وارد نمودن حروف فارسی بدون تغییر Keylayout
    VB Anticrack v1.5 Full
    نمایش کامل متن آیتم لیست باکس
    محدود نمودن ماوس
    باز کردن Regedit در مسیر دلخواه
    تغییر استایل کامند به فلات
    تغییرات در رجیستری توسط
    نحوه استفاده از Gif control
    NOD32 SN Finder v1.5
    [عناوین آرشیوشده]

    بالا

    طراح قالب: رضا امین زاده** پارسی بلاگ پیشرفته ترین سیستم مدیریت وبلاگ

    بالا