Data update

Task/Empty-directory/Ada/empty-directory.ada

@@ -1,24 +0,0 @@
-with Ada.Text_IO; use Ada.Text_IO;
-with Ada.Directories;
-procedure EmptyDir is
-   function Empty (path : String) return String is
-      use Ada.Directories;
-      result : String := "Is empty.";
-      procedure check (ent : Directory_Entry_Type) is begin
-         if Simple_Name (ent) /= "." and Simple_Name (ent) /= ".." then
-            Empty.result := "Not empty";
-         end if;
-      end check;
-   begin
-      if not Exists (path) then return "Does not exist.";
-      elsif Kind (path) /= Directory then return "Not a Directory.";
-      end if;
-      Search (path, "", Process => check'Access);
-      return result;
-   end Empty;
-begin
-   Put_Line (Empty ("."));
-   Put_Line (Empty ("./empty"));
-   Put_Line (Empty ("./emptydir.adb"));
-   Put_Line (Empty ("./foobar"));
-end EmptyDir;

Task/Empty-directory/PowerShell/empty-directory.psh

@@ -1,6 +0,0 @@
-$path = "C:\Users"
-if((Dir $path).Count -eq 0) {
-    "$path is empty"
-} else {
-    "$path is not empty"
-}

Task/Empty-directory/VBScript/empty-directory.vb

@@ -1,12 +0,0 @@
-Function IsDirEmpty(path)
-	IsDirEmpty = False
-	Set objFSO = CreateObject("Scripting.FileSystemObject")
-	Set objFolder = objFSO.GetFolder(path)
-	If objFolder.Files.Count = 0 And objFolder.SubFolders.Count = 0 Then
-		IsDirEmpty = True
-	End If
-End Function
-
-'Test
-WScript.StdOut.WriteLine IsDirEmpty("C:\Temp")
-WScript.StdOut.WriteLine IsDirEmpty("C:\Temp\test")