.
[ کمیل پسر زیاد گفت : امیر المؤمنین على بن ابى طالب ( ع ) دست مرا گرفت و به بیابان برد ، چون به صحرا رسید آهى دراز کشید و گفت : ] اى کمیل این دلها آوند هاست ، و بهترین آنها نگاهدارنده‏ترین آنهاست . پس آنچه تو را مى‏گویم از من به خاطر دار : مردم سه دسته‏اند : دانایى که شناساى خداست ، آموزنده‏اى که در راه رستگارى کوشاست ، و فرومایگانى رونده به چپ و راست که درهم آمیزند ، و پى هر بانگى را گیرند و با هر باد به سویى خیزند . نه از روشنى دانش فروغى یافتند و نه به سوى پناهگاهى استوار شتافتند . کمیل دانش به از مال است که دانش تو را پاسبان است و تو مال را نگهبان . مال با هزینه کردن کم آید ، و دانش با پراکنده شدن بیفزاید ، و پرورده مال با رفتن مال با تو نپاید . اى کمیل پسر زیاد شناخت دانش ، دین است که بدان گردن باید نهاد . آدمى در زندگى به دانش طاعت پروردگار آموزد و براى پس از مرگ نام نیک اندوزد ، و دانش فرمانگذارست و مال فرمانبردار . کمیل گنجوران مالها مرده‏اند گرچه زنده‏اند ، و دانشمندان چندانکه روزگار پاید ، پاینده‏اند . تن‏هاشان ناپدیدار است و نشانه‏هاشان در دلها آشکار . بدان که در اینجا [ و به سینه خود اشارت فرمود ] دانشى است انباشته ، اگر فراگیرانى براى آن مى‏یافتم . آرى یافتم آن را که تیز دریافت بود ، لیکن امین نمى‏نمود ، با دین دنیا مى‏اندوخت و به نعمت خدا بر بندگانش برترى مى‏جست ، و به حجّت علم بر دوستان خدا بزرگى مى‏فروخت . یا کسى که پیروان خداوندان دانش است ، اما در شناختن نکته‏هاى باریک آن او را نه بینش است . چون نخستین شبهت در دل وى راه یابد درماند و راه زدودن آن را یافتن نتواند . بدان که براى فرا گرفتن دانشى چنان نه این در خور است و نه آن . یا کسى که سخت در پى لذت است و رام شهوت راندن یا شیفته فراهم آوردن است و مالى را بر مال نهادن . هیچ یک از اینان اندک پاسدارى دین را نتواند و بیشتر به چارپاى چرنده ماند . مرگ دانش این است و مردن خداوندان آن چنین . بلى زمین تهى نماند از کسى که حجّت بر پاى خداست ، یا پدیدار و شناخته است و یا ترسان و پنهان از دیده‏هاست . تا حجّت خدا باطل نشود و نشانه‏هایش از میان نرود ، و اینان چندند ، و کجا جاى دارند ؟ به خدا سوگند اندک به شمارند ، و نزد خدا بزرگمقدار . خدا حجتها و نشانه‏هاى خود را به آنان نگاه مى‏دارد ، تا به همانندهاى خویشش بسپارند و در دلهاى خویشش بکارند . دانش ، نور حقیقت بینى را بر آنان تافته و آنان روح یقین را دریافته و آنچه را ناز پروردگان دشوار دیده‏اند آسان پذیرفته‏اند . و بدانچه نادانان از آن رمیده‏اند خو گرفته . و همنشین دنیایند با تن‏ها ، و جانهاشان آویزان است در ملأ اعلى . اینان خدا را در زمین او جانشینانند و مردم را به دین او مى‏خوانند . وه که چه آرزومند دیدار آنانم ؟ کمیل اگر خواهى بازگرد . [نهج البلاغه]
امروز: چهارشنبه 04 تیر 11



Online backup storage and collaboration

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

با سلام و تبریک میلاد حضرت علی (ع)

 

امروز نحوه کار با سطل زباله وندوز رو براتون میذارم:

کد زیر را داخل یک ماژول ذخیره کنید:

Private Type ULARGE_INTEGER
  LowPart As Long
  HighPart As Long
End Type
Private Type SHQUERYRBINFO
  cbSize As Long
  i64Size As ULARGE_INTEGER
  i64NumItems As ULARGE_INTEGER
End Type
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Const SHERB_NOPROGRESSUI = &H1
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String
   
Function Get_Empty_Recyclebin()
 retvaL = SHEmptyRecycleBin(1, "", SHERB_NOPROGRESSUI)
End Function

Function Get_Recyclebin_size()
Dim RBinInfo As SHQUERYRBINFO
 RBinInfo.cbSize = Len(RBinInfo)
 SHQueryRecycleBin vbNullString, RBinInfo
 Get_Recyclebin_size = FormatKB(RBinInfo.i64Size.LowPart)
End Function

Function Get_Recyclebin_Items()
Const RECYCLE_BIN = &HA&
Dim a As Shell32.Folder "Required: References> Microsoft Shell Controls And Automation
 Set objShell = Create("Shell.Application")
 Set a = objShell.NameSpace(RECYCLE_BIN)
 Get_Recyclebin_Items = a.Items.Count
End Function

Public Function FormatKB(ByVal Amount As Long) As String
Dim Buffer As String
Dim Result As String
 Buffer = Space$(255)
 Result = StrFormatByteSize(Amount, Buffer, Len(Buffer))
 If InStr(Result, vbNullChar) > 1 Then
   FormatKB = Left$(Result, InStr(Result, vbNullChar) - 1)
 End If
End Function

 

-اطلاع از حجم سطل زباله با Get_Recyclebin_size

-اطلاع از تعداد فایلهای موجود در سطل زباله با Get_Recyclebin_Items

-حذف محتویات سطل زباله با Get_Empty_Recyclebin

 دانلود

دانلود نمونه برنامه



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

بالا

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

بالا