Форум Команды NeTTeam

Изменение даты не используя API

Today = DateAdd(DateInterval.Year, -1, Today)

Открытие другой программы и программы

Dim sFileName as string="C:\SomeProgram.exe"
System.Diagnostics.Process.Start(sFileName)

Очищаем корзину


'класс очистки корзины
Public Class ShellActions

Shared Function _
SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _
ByVal dwFlags As Integer) As Integer
End Function

Sub New()
EmptyRecycleBin()
End Sub

Sub EmptyRecycleBin(Optional ByVal rootPath As String = "", _
Optional ByVal noConfirmation As Boolean = True, Optional ByVal NoProgress _
As Boolean = True, Optional ByVal NoSound As Boolean = True)

Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

If rootPath.Length > 0 AndAlso rootPath.Substring(1, 2) <> ":\" Then
rootPath = rootPath.Substring(0, 1) & ":\"
End If

Dim flags As Integer = (noConfirmation And SHERB_NOCONFIRMATION) Or _
(NoProgress And SHERB_NOPROGRESSUI) Or (NoSound And SHERB_NOSOUND)
SHEmptyRecycleBin(0, rootPath, flags)

End Sub

'/////////////////////////////////////////////
'использование //////////////////////////
'/////////////////////////////////////////////
Dim Action As New ShellActions
Action.EmptyRecycleBin()
'/////////////////////////////////////////////
'/////////////////////////////////////////////