Desktop Cleaner

• Download source files - 317 Kb
• Download demo project - 258 Kb

Introduction

The sole purpose of this application is to get rid of that messy desktop. All that this application does is cleans your desktop. It does this by arranging all files of the same type together, so that they are easily accessible from the system tray.

This app is my first experiment with Visual Basic 2005 Express edition... You need to have .NET 2.0 Framework installed in your system to run this app.

The working

Here goes the working... When the application executes, first it takes the backup of your desktop date-wise (in case you want to restore it later on). It then reads the files and folders on the desktop one by one and moves them to appropriate folders (according to there extensions). A menu is generated dynamically which lists the files and folders neatly arranged, in the system tray. You can now access any of the files or folders with ease.

Note: Make sure you run the application from a location other than the desktop... otherwise it will move itself.

The code

VB.NET 2005 made it so simple....With MY, we can have access to so many things easily. I could access the desktop of my machine without even worrying about the version of Windows I am working on. Similarly moving, deleting, copying of files and directories were done by just one line of code. Check it out yourself:

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