[DEVELOPMENT ENVIRONMENT]

* BUG: Do not crash if the examples directory does not exist.


git-svn-id: svn://localhost/gambas/trunk@4285 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-12-18 03:33:46 +00:00
parent 3d934b455c
commit b327269b6f

View file

@ -4298,7 +4298,7 @@ Public Function GetExamples(Optional sParent As String) As String[]
'ENDIF
Next
Else
Else If IsDir(EXAMPLES_DIR) Then
For Each sFile In Dir(EXAMPLES_DIR, "*", gb.Directory)
If Left(sFile) = "." Then Continue