diff options
-rw-r--r-- | src/base/USongs.pas | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/base/USongs.pas b/src/base/USongs.pas index 6f66bf3f..7f5125a9 100644 --- a/src/base/USongs.pas +++ b/src/base/USongs.pas @@ -275,7 +275,11 @@ var lSong : TSong; begin - Files := Platform.DirectoryFindFiles( Dir, '.txt', true); + try + Files := Platform.DirectoryFindFiles( Dir, '.txt', true) + except + Log.LogError('Couldn''t deal with directory/file: ' + Dir + ' in TSongs.BrowseTXTFiles') + end; for i := 0 to Length(Files)-1 do begin @@ -308,7 +312,11 @@ var lSong : TSong; begin - Files := Platform.DirectoryFindFiles( Dir, '.xml', true); + try + Files := Platform.DirectoryFindFiles( Dir, '.xml', true) + except + Log.LogError('Couldn''t deal with directory/file: ' + Dir + ' in TSongs.BrowseXMLFiles') + end; for i := 0 to Length(Files)-1 do begin |