如何在vb中编程实现清空回收站.txt

VB技巧问答10000例 VB技巧问答10000例

你 可 以 使 用 API函 数 SHEmptyRecycleBin。 这 个 函 数 在 Windows 98/2000中 可 以 调 用 。 如 果 在 Windows 95/NT 4.0， 需 要 安 装 IE 4以 后 版 本 才 可 以 调 用 。 该 函 数 定 义 如 下 ： 
    HRESULT SHEmptyRecycleBin( 
     HWND hwnd, 
     LPCTSTR pszRootPath, 
     DWORD dwFlags 
    ); 
    其 中 第 一 个 参 数 是 一 个 窗 口 句 柄 ， 如 果 显 示 对 话 框 ， 这 个 窗 口 将 作 为 对 话 框 的 父 窗 口 。 这 个 参 数 可 以 为 NULL。 
    第 二 个 参 数 是 根 目 录 路 径 ， 可 以 是 驱 动 器 或 任 意 子 目 录 ， 如 C:\windows， 这 样 Windows只 删 除 回 收 站 中 指 定 目 录 下 的 文 件 。 如 果 该 参 数 为 NULL， 则 清 空 所 有 文 件 。 
    第 三 个 参 数 可 以 是 一 下 标 志 ： 
    SHERB_NOCONFIRMATION 不 显 示 任 何 确 认 对 话 框 。 
    SHERB_NOPROGRESSUI 没 有 对 话 框 表 示 进 度 。 
    SHERB_NOSOUND 没 有 声 音 效 果 。 
<END>