diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index 0287f4394d22..fdd725ba5a8c 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -263,7 +263,7 @@ Dim MaxFileIndex as Integer End If Next i End If - Loop Until m > Ubound(DirList() + Loop Until m > Ubound(DirList()) ReDim Preserve FileNameList(n-1,1) as String ReadSourceDirectory() = FileNameList() End Function @@ -319,4 +319,4 @@ Sub ToggleDialogControls(bDoEnable as Boolean) .Label2.Enabled = bDoEnable .TextField1.Enabled = bDoEnable End With -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> |