12 lines
258 B
Text
12 lines
258 B
Text
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
|