桌面清理器

• 下载源代码 - 317 Kb
• 下载演示项目 - 258 Kb

引言

此应用程序的唯一目的是摆脱凌乱的桌面。此应用程序所做的一切就是清理您的桌面。它通过将相同类型的所有文件组合在一起来实现此目的，以便您可以轻松地从系统托盘访问它们。

这个应用程序是我使用 Visual Basic 2005 Express 版的第一个实验……您需要在您的系统上安装 .NET 2.0 Framework 才能运行此应用程序。

工作原理

工作原理如下：当应用程序执行时，它首先会按日期备份您的桌面（以防您稍后需要还原它）。然后，它逐个读取桌面上的文件和文件夹，并将它们移动到适当的文件夹（根据它们的文件扩展名）。一个菜单会在系统托盘中动态生成，该菜单整齐地列出了文件和文件夹。现在您可以轻松访问任何文件或文件夹。

注意：请确保从桌面以外的位置运行该应用程序……否则它会移动自身。

代码

VB.NET 2005 使其变得如此简单。使用 MY，我们可以轻松访问许多东西。我无需担心我正在使用的 Windows 版本，就可以访问我机器的桌面。同样，移动、删除、复制文件和目录只需一行代码即可完成。自己看看吧

Imports System.IO

Public Class Form1
    Private Declare Function ShellExecute Lib "shell32.dll" _
            Alias "ShellExecuteA"(ByVal hwnd As Integer, _
            ByVal lpOperation As String, ByVal lpFile As String, _
            ByVal lpParameters As String, ByVal lpDirectory As String, _
            ByVal nShowCmd As Integer) As Integer
    Dim desktoppath As String = _
       My.Computer.FileSystem.SpecialDirectories.Desktop.ToString()
    Dim destdir As String = _
           My.Application.Info.DirectoryPath & "\DesktopCleaned\"
    Dim backupdir As String = _
          My.Application.Info.DirectoryPath & "\DesktopBackup_" & _
          DateTime.Now.Day & DateTime.Now.Month & DateTime.Now.Year & "\"


    Private Sub Form1_Load(ByVal sender As System.Object, _
                   ByVal e As System.EventArgs) Handles MyBase.Load

        Dim files As _
           System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim listdirs As _
           System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim i As Integer
        Dim filext As String
        Dim filename As String
        Dim dirname As String
        Dim lstindex As Integer = 0
        My.Application.SaveMySettingsOnExit = True


        On Error GoTo classhandler
classhandler:
        If Err.Number = 57 Then
            systray.BalloonTipIcon = ToolTipIcon.Warning
            systray.BalloonTipTitle = "Warning"
            systray.BalloonTipText = "Some files are in use. Please " & _ 
                                   "close them and re-run the application"
            systray.ShowBalloonTip(2)
        Else
            ' MsgBox(Err.Description)
        End If
        Resume Next

        files = My.Computer.FileSystem.GetFiles(desktoppath, True, "*.*")
        listdirs = My.Computer.FileSystem.GetDirectories(desktoppath, _
                           FileIO.SearchOption.SearchTopLevelOnly, "*.*")

      
        ' Check for directories
        If Not My.Computer.FileSystem.DirectoryExists(destdir) Then
            My.Computer.FileSystem.CreateDirectory(destdir)
        End If
        If Not My.Computer.FileSystem.DirectoryExists(destdir & _
                                                       "Folders") Then
            My.Computer.FileSystem.CreateDirectory(destdir & "Folders")
        End If

        ' Backup Directories
        systray.BalloonTipIcon = ToolTipIcon.Info
        systray.BalloonTipTitle = "Backup"
        systray.BalloonTipText = "Backing up folders...Please wait"
        systray.ShowBalloonTip(1)

        For i = 0 To listdirs.Count - 1
            dirname = listdirs(i)
            lstindex = dirname.LastIndexOf("\")
            dirname = dirname.Substring(lstindex + 1, _
                                    dirname.Length - lstindex - 1)

            If Not My.Computer.FileSystem.DirectoryExists(backupdir & _
                                                          dirname) Then
                My.Computer.FileSystem.CopyDirectory(desktoppath & _
                                    "\" & dirname, backupdir & dirname)
            Else
                My.Computer.FileSystem.CopyDirectory(desktoppath & _
                   "\" & dirname, backupdir & "Renamed_" & _
                   DateTime.Now.Hour.ToString() & _
                   DateTime.Now.Minute.ToString() & _
                   DateTime.Now.Second.ToString() & "_" & dirname)
            End If
        Next

        ' Backup Files

        systray.BalloonTipIcon = ToolTipIcon.Info
        systray.BalloonTipTitle = "Backup"
        systray.BalloonTipText = "Backing up files...Please wait"
        systray.ShowBalloonTip(1)
       
        For i = 0 To files.Count - 1
            filename = files(i)
            lstindex = filename.LastIndexOf("\")
            filename = filename.Substring(lstindex + 1, _
                                    filename.Length - lstindex - 1)
            lstindex = filename.LastIndexOf(".")

            If lstindex <> -1 Then
                If My.Computer.FileSystem.FileExists(backupdir & _
                                                      filename) Then
                    My.Computer.FileSystem.CopyFile(desktoppath & _
                       "\" & filename, backupdir & "Renamed_" & _
                       DateTime.Now.Hour.ToString() & _
                       DateTime.Now.Minute.ToString() & _
                       DateTime.Now.Second.ToString() & _
                       "_" & filename)
                Else
                    My.Computer.FileSystem.CopyFile(desktoppath & _
                                                  "\" & filename, _
                                               backupdir & filename)
                End If
            End If
        Next

        'Move Directories
        For i = 0 To listdirs.Count - 1
            dirname = listdirs(i)
            lstindex = dirname.LastIndexOf("\")
            dirname = dirname.Substring(lstindex + 1, _
                                      dirname.Length - lstindex - 1)
            If Not My.Computer.FileSystem.DirectoryExists(destdir & _
                                       "\" & "\Folders\" & dirname) Then
                My.Computer.FileSystem.MoveDirectory(desktoppath & _
                          "\" & dirname, destdir & "\Folders\" & dirname)
            Else
                My.Computer.FileSystem.MoveDirectory(desktoppath & _
                            "\" & dirname, destdir & "\Folders\" & _
                       "Renamed_" & DateTime.Now.Hour.ToString() & _
                                  DateTime.Now.Minute.ToString() & _
                                  DateTime.Now.Second.ToString() & _
                                                       "_" & dirname)
            End If
        Next

        ' Move Files    
        For i = 0 To files.Count - 1
            filename = files(i)
            lstindex = filename.LastIndexOf("\")
            filename = filename.Substring(lstindex + 1, _
                                      filename.Length - lstindex - 1)
            lstindex = filename.LastIndexOf(".")

            If lstindex <> -1 Then
                filext = filename.Substring(lstindex + 1, _
                                    filename.Length - lstindex - 1)
                If Not My.Computer.FileSystem.DirectoryExists(destdir & _
                                                        "\" & filext) Then
                    My.Computer.FileSystem.CreateDirectory(destdir & _
                                                             "\" & filext)
                End If
                If My.Computer.FileSystem.FileExists(destdir & _
                                      "\" & filext & "\" & filename) Then
                    My.Computer.FileSystem.MoveFile(desktoppath & _
                                            "\" & filename, destdir & _
                                                       filext & "\" & _
                          "Renamed_" & DateTime.Now.Hour.ToString() & _
                                     DateTime.Now.Minute.ToString() & _
                                     DateTime.Now.Second.ToString() & _
                                                         "_" & filename)
                Else
                    My.Computer.FileSystem.MoveFile(desktoppath & _
                               "\" & filename, destdir & filext & _
                                                    "\" & filename)
                End If
            Else
                filext = ""
            End If
        Next
        systray.BalloonTipIcon = ToolTipIcon.Info
        systray.BalloonTipTitle = "Cleaning"
        systray.BalloonTipText = "Cleaning Desktop...Done"
        systray.ShowBalloonTip(1)
        Call genmenu()


    End Sub

    Sub genmenu()
        Dim i As Integer
        Dim j As Integer
        Dim dirname As String
        Dim dirnameinside As String
        Dim filename As String
        Dim lstindex As Integer = 0
        Dim getdirs As _
            System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim getdirsinside As _
            System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim getfiles As _
            System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim parentMenu As ToolStripMenuItem
        Dim ChildMenu As ToolStripMenuItem
        Dim IconExtractor As IconExtractor
        Dim Icon As System.Drawing.Icon
        Dim File As String
        Dim sep As ToolStripSeparator
        Dim defalutmenu As ToolStripItem

        rmenu.Items.Clear()
        IconExtractor = New IconExtractor
        If My.Computer.FileSystem.DirectoryExists(destdir & _
                                                 "\Folders") Then
            getdirsinside = _
               My.Computer.FileSystem.GetDirectories(destdir & "\Folders")
            If getdirsinside.Count > 0 Then
                'Arrange folders
                defalutmenu = New ToolStripMenuItem()
                defalutmenu.Name = "Folders"
                defalutmenu.Text = "All Folders"
                defalutmenu.ForeColor = Color.Aqua
                rmenu.Items.Add(defalutmenu.ToString(), P2.Image)
                ' List Contents
                parentMenu = New ToolStripMenuItem()
                parentMenu.Name = "folders"
                parentMenu.Text = "Folders"
                rmenu.Items.Add(parentMenu)
                For j = 0 To getdirsinside.Count - 1
                    lstindex = getdirsinside(j).LastIndexOf("\")
                    dirnameinside = getdirsinside(j).Substring(lstindex + 1, _
                                        getdirsinside(j).Length - lstindex - 1)
                    ChildMenu = parentMenu.DropDown.Items.Add(dirnameinside, _
                                             P2.Image, AddressOf MenuItem_Click)
                    ChildMenu.Tag = getdirsinside(j)
                Next
                sep = New ToolStripSeparator
                sep.Name = "sep2"
                rmenu.Items.Add(sep)
            End If
        End If
        defalutmenu = New ToolStripMenuItem()
        defalutmenu.Name = "files"
        defalutmenu.Text = "All Files"
        defalutmenu.ForeColor = Color.Aqua
        rmenu.Items.Add(defalutmenu.ToString(), P2.Image)

        getdirs = My.Computer.FileSystem.GetDirectories(destdir)

        For i = 0 To getdirs.Count - 1
            dirname = getdirs(i)
            lstindex = dirname.LastIndexOf("\")
            dirname = dirname.Substring(lstindex + 1, _
                                     dirname.Length - lstindex - 1)

            parentMenu = New ToolStripMenuItem()
            parentMenu.Name = dirname
            parentMenu.Text = dirname
            If dirname <> "Folders" Then
                rmenu.Items.Add(parentMenu)
            End If

            'Get and list Folders first
            getdirsinside = _
                 My.Computer.FileSystem.GetDirectories(destdir & _
                                                      "\" & dirname)
            For j = 0 To getdirsinside.Count - 1
                lstindex = getdirsinside(j).LastIndexOf("\")
                dirnameinside = getdirsinside(j).Substring(lstindex + 1, _
                                   getdirsinside(j).Length - lstindex - 1)
                ChildMenu = parentMenu.DropDown.Items.Add(dirnameinside, _
                                       P2.Image, AddressOf MenuItem_Click)
                ChildMenu.Tag = getdirsinside(j)
            Next

            'Get and list all files
            getfiles = My.Computer.FileSystem.GetFiles(destdir & _
                                                         "\" & dirname)

            For j = 0 To getfiles.Count - 1

                File = getfiles(j)
                Icon = IconExtractor.Extract(File, IconSize.Small)
                P1.Image = Icon.ToBitmap()
                lstindex = getfiles(j).LastIndexOf("\")
                filename = getfiles(j).Substring(lstindex + 1, _
                                     getfiles(j).Length - lstindex - 1)
                ChildMenu = parentMenu.DropDown.Items.Add(filename, _
                                    P1.Image, AddressOf MenuItem_Click)
                ChildMenu.Tag = getfiles(j)
            Next
        Next

        'Separator
        sep = New ToolStripSeparator
        sep.Name = "sep"
        rmenu.Items.Add(sep)

        'Default menu
        defalutmenu = New ToolStripMenuItem()
        defalutmenu.Name = "Settings"
        defalutmenu.Text = "S&ettings"
        rmenu.Items.Add(defalutmenu.ToString(), _
                     sets.Image, AddressOf settings_Click)
        sep = New ToolStripSeparator
        sep.Name = "sep2"
        rmenu.Items.Add(sep)
        defalutmenu = New ToolStripMenuItem()
        defalutmenu.Name = "About"
        defalutmenu.Text = "A&bout"
        rmenu.Items.Add(defalutmenu.ToString(), _
                        abtp.Image, AddressOf about_Click)
        defalutmenu = New ToolStripMenuItem()
        defalutmenu.Name = "Exit"
        defalutmenu.Text = "E&xit"
        rmenu.Items.Add(defalutmenu.ToString(), _
                        exitp.Image, AddressOf exit_Click)
    End Sub

    Private Sub MenuItem_Click(ByVal sender As System.Object, _
                                       ByVal e As System.EventArgs)
        Dim tsmi As New ToolStripMenuItem
        tsmi = CType(sender, ToolStripMenuItem)
        ShellExecute(0, "open", tsmi.Tag.ToString(), "", "", 1)
    End Sub

    Private Sub settings_Click(ByVal sender As System.Object, _
                                       ByVal e As System.EventArgs)
        setting.Show()
    End Sub

    Private Sub about_Click(ByVal sender As System.Object, _
                                       ByVal e As System.EventArgs)
        about.show()
    End Sub

    Private Sub exit_Click(ByVal sender As System.Object, _
                                       ByVal e As System.EventArgs)
        systray.Visible = False
        Me.Close()
        End
    End Sub

End Class