VB.NET – Remove Empty Folders

Posted on By David Kittell 
'Remove Empty Folders - Start
    Public Shared Sub RemoveEmptyFolders(ByVal path As String)
        Dim directory As New DirectoryInfo(path)
        For Each subDirectory As DirectoryInfo In directory.GetDirectories()
            If subDirectory.GetFiles().Length = 0 Then
                Try
                    subDirectory.Delete()
                Catch ex As Exception

                End Try
            End If
        Next subDirectory
    End Sub
    'Remove Empty Folders - Stop
Originally Posted on December 14, 2013
Last Updated on December 22, 2019
All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.
Code VB.NET

Related Posts

File Exists

Posted on

Public Function FileExists(ByVal FileFullPath As String) _ As Boolean Dim f As New IO.FileInfo(FileFullPath) Return f.Exists End Function Originally Posted on December 14, 2013Last Updated on October 26, 2015 All information on this site is shared with the intention to help. Before any source code or program is ran on…

Read More

VB.Net – Get File Size / Free Space / Total Space

Posted on

Private Function GetFileSize(ByVal MyFilePath As String) As Long Dim MyFile As New FileInfo(MyFilePath) Dim FileSize As Long = MyFile.Length Return FileSize End Function Public Function GetFreeSpace(ByVal Drive As String) As Long Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long Dim iAns As Long iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, lBytesTotal, lFreeBytes) If iAns >…

Read More

Age Verification

Posted on

private bool ValidateMemberUnderage(DateTime dtBirthday, int nYears) { if (DateTime.Today.Year – dtBirthday.Year > nYears) return true; else if (DateTime.Today.Year – dtBirthday.Year == nYears) { DateTime dtBirthdayThisYear = dtBirthday.AddYears(nYears); if (DateTime.Today >= dtBirthdayThisYear) return true; else return false; } else return false; } if (ValidateMemberUnderage(DateTime.Parse("1981-04-04"), 12) == false) { MessageBox.Show("Too Young"); }…

Read More