ایجاد زمان برای انجام برخی اعمال خارج از ویژوال بیسیک:خالی شدن سطل آشغال پس از یک هفته

سلام دوستان
من در پروزه به مشکل برخوردمومشکلم این است که می خواهم توسط بر نامه ی ویژوال بیسیک فعالیت یا تغییری در خارج از برنامه و در محیط ویندوز ایجاد کنم:بطور مثال می خواهم سطل آشغال پس از پر شدن به تعداد مورد اندازه ی من خالی شود
لطفا راهنماییم کنید
با تشکر

حدود 15 نفر این تایپیک رو دیدن اما هیچ نظری ندادن لطفا کمکم کنید و حتی کمترین چیزی که در ذهن دارید رو بنویسید
ممنون

اینطوری نیست که بگیم برای هر تغییری خارج از محیط VB از یه کد استفاده میشه.

برای خالی کردن سطل زباله:

[PHP]
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
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
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Sub Form_Load()
Dim RBinInfo As SHQUERYRBINFO, Msg As VbMsgBoxResult
RBinInfo.cbSize = Len(RBinInfo)
SHQueryRecycleBin vbNullString, RBinInfo
If (RBinInfo.i64Size.LowPart And &H80000000) = &H80000000 Or RBinInfo.i64Size.HighPart > 0 Then
Msg = MsgBox("Your Recycle Bin consumes over 2 gigabytes right now!" + vbCrLf + "Do you want to empty it?", vbYesNo + vbQuestion)
Else
Msg = MsgBox("Your Recycle Bin consumes" + Str$(RBinInfo.i64Size.LowPart) + " bytes right now." + vbCrLf + "Do you want to empty it?", vbYesNo + vbQuestion)
End If
If Msg = vbYes Then
SHEmptyRecycleBin Me.hwnd, vbNullString, 0
SHUpdateRecycleBinIcon
End If
End Sub
[/PHP]

سلام :

با توجه به حرف مرتضی جان که درسته ، ولی برای کاریه دیگه مثلا : اجرای برنامه و یا باز کردن یه فایل و ... غیره باید از دستور Shell

استفاده کنی ولی برای دست کاری تنظیمات ویندوز باید از طریق vb ریجیستری رو دستکاری کنی .

با تشکر (Bvk)