Bugzilla – Attachment 167335 Details for
Bug 133789
BASIC function DIR does not deliver correct result list
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
LibO Basic code sample
133789.libO Basic.txt (text/plain), 861 bytes, created by
Alain Romedenne
on 2020-11-16 16:26:35 UTC
(
hide
)
Description:
LibO Basic code sample
Filename:
MIME Type:
Creator:
Alain Romedenne
Created:
2020-11-16 16:26:35 UTC
Size:
861 bytes
patch
obsolete
>'Option Compatible > >Sub pattern_examples > ExampleDir("*") ' results in 9 directories /Windows > ExampleDir("*E*") ' no directories found /Windows > ExampleDir("*e*") ' results in 8 directories /Windows > ExampleDir("?e?i?e*") >End Sub > >Sub ExampleDir(pattern$) >'CompatibilityMode(True) >' Displays all files and directories >Dim sPath As String >Dim sDir As String, sValue As String > sDir="Directories:" > sPath = CurDir > sValue = Dir$(sPath + getPathSeparator + pattern,16) > Do > If sValue <> "." And sValue <> ".." Then > If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then > ' Get the directories > sDir = sDir & chr(13) & sValue > End If > End If > sValue = Dir$ > Loop Until sValue = "" > MsgBox sDir,0,sPath >'CompatibilityMode(False) >End Sub
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 133789
:
161760
|
166514
|
167334
| 167335