Anonymous user
Empty directory: Difference between revisions
→{{header|UNIX Shell}}
Line 699:
[ `ls -a $DIR|wc -l` -gt 2 ] && echo $DIR is NOT empty || echo $DIR is empty
</lang>
=={{header|VBScript}}==
<lang vb>
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")
</lang>
{{Out}}
<pre>
False
True
</pre>
=={{header|zkl}}==
| |||