Home > March, 2011 存档

VB.net 删除文件夹内所有文件

评分 0.00, 满分 5星 0 票 No comments
Imports System.IO

Public Shared Sub DeleteDir(ByVal aimPath As String)
    Try

        '判断待删除的目录是否存在,不存在则退出.    
        If (Not Directory.Exists(aimPath)) Then Exit Sub
        ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组    
        ' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法    
        ' string[] fileList = Directory.GetFiles(aimPath);    
        Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)
        ' 遍历所有的文件和目录    
        For Each FileName As String In fileList
        If (Directory.Exists(FileName)) Then
        ' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件    
        DeleteDir(aimPath + Path.GetFileName(FileName))
        Else
        ' 否则直接Delete文件    
        File.Delete(aimPath + Path.GetFileName(FileName))
        End If
        Next
        '删除文件夹、不删除    
        'System.IO.Directory.Delete(aimPath, True)
        Catch ex As Exception
        MessageBox.Show(ex.ToString())
    End Try
End Sub

Windows 桌面文字背景 透明

评分 0.00, 满分 5星 0 票 No comments

打开系统属性-高级-性能-视觉效果使用了“在桌面上为图标标签使用阴影”之后标签上仍然显示桌面背景底色而非透明的问题。
值得一提的是,设定了桌面上锁定web项目或显示网页也会导致上面这个问题(确保你没启用)
其实,只要你的注册表中的下面两个键值跟 给出的数据都一样,可以确保你的桌面图标标签背景透明。
(打开注册表编辑器:开始-运行regedit )
hkey_current_user\software\microsoft\windows\currentversion\explorer\advanced 中的listviewshadow键值数据为1
该键值修改生效需重启explorer.exe —— 任务管理器中结束所有explorer进程,再新建任务explorer
hkey_current_user\software\microsoft\windows\currentversion\explorer 中的shellstate键值(双击)数据显示为该键值修改生效只需刷新桌面
两者一定要同时成立。