Anonymous user
Empty directory: Difference between revisions
no edit summary
(Add BaCon) |
No edit summary |
||
Line 461:
<lang fsharp>open System.IO
let isEmptyDirectory x = (Directory.GetFiles x).Length = 0 && (Directory.GetDirectories x).Length = 0</lang>
=={{header|Gambas}}==
<lang gambas>Public Sub Main()
Dim sFolder As String = User.home &/ "Rosetta"
Dim sDir As String[] = Dir(sFolder)
Dim sTemp As String
Dim sOutput As String = sfolder & " is NOT empty"
Try sTemp = sDir[0]
If Error Then sOutput = sfolder & " is empty"
Print sOutput
End</lang>
Output:
<pre>
/home/charlie/Rosetta is empty
</pre>
=={{header|Go}}==
| |||