https://www.dotnetzone.gr:443/cs/blogs/imanoussakis/archive/2006/03/28/11243.aspxΠώς μπορούμε να διαγράψουμε άδειους φακέλους . Imports System.IO Public Sub DelEmptyFolders( ByVal DirPath As String ) Dim SubDirs() As String = Directory.GetDirectories(DirPath) Dim strDir As String For Each strDir In SubDirs DelEmptyFolders(strDir)elCommunityServer 2.1 SP3 (Build: 20423.1)