6 lines
169 B
Text
6 lines
169 B
Text
|
EmptyDirectoryQ[x_] := (SetDirectory[x]; If[FileNames[] == {}, True, False])
|
||
|
|
|
||
|
|
Example use:
|
||
|
|
EmptyDirectoryQ["C:\\Program Files\\Wolfram Research\\Mathematica\\9"]
|
||
|
|
->True
|